[or-cvs] also use "use warnings"

Sat Oct 8 12:34:54 UTC 2005

Update of /home/or/cvsroot/website/include
In directory moria:/tmp/cvs-serv28269/include

Modified Files:
	head.wmi links.wmi 
Log Message:
also use "use warnings"

Index: head.wmi
===================================================================
RCS file: /home/or/cvsroot/website/include/head.wmi,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6

--- head.wmi	8 Oct 2005 12:16:45 -0000	1.5
+++ head.wmi	8 Oct 2005 12:34:51 -0000	1.6
@@ -1,9 +1,10 @@
 #! /usr/bin/wml
 <: use strict; :>
-#include "perl-globals.wmi"
-#include "links.wmi"
-#include "versions.wmi"
-#include "navigation.wmi"
+<: use warnings; :>
+#use "perl-globals.wmi"
+#use "links.wmi"
+#use "versions.wmi"
+#use "navigation.wmi"
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
@@ -23,7 +24,7 @@
     <tr>
         <td class="banner-left"></td>
         <td class="banner-middle">
-	<:
+	<:{
 	    my %navigation;
 	    my @keys;
 	    while (@navigation) {
@@ -42,17 +43,17 @@
 	        printf '<a class="current">%s</a>'."\n", $navigation{$key};
 	       }
 	     }
-	:>
+	}:>
         </td>
         <td class="banner-right">
-	<:
+	<:{
 	  my $page = $WML_SRC_FILENAME;
 	  $page =~ s/\.wml//;
 	  for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
 	    next if $dir eq '$(LANG)';
 	    printf('<a href="%s.html.%s"><img src="$(IMGROOT)/%s.png" alt="%s" /></a>', $page, $dir, $dir, $LANGUAGES{$dir}) if (-e "$dir/$WML_SRC_FILENAME");
 	  };
-	:>
+	}:>
         </td>
     </tr>
 </table>

Index: links.wmi
===================================================================
RCS file: /home/or/cvsroot/website/include/links.wmi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- links.wmi	8 Oct 2005 12:16:45 -0000	1.4
+++ links.wmi	8 Oct 2005 12:34:51 -0000	1.5
@@ -5,7 +5,7 @@
 #  Xinclude "locallinks.wmi"
 #  Xinclude "langlocallinks.$(LANG).wmi"
 
-<define-tag page whitespace=delete><:
+<define-tag page whitespace=delete><:{
 	my $page="%0";
 	my $lang="$(LANG)";
 	if (-e "$lang/$page.wml") {
@@ -15,4 +15,4 @@
 	} else {
 		warn "$WML_SRC_FILENAME has a [page $page], but that doesn't exist.";
 	};
-:></define-tag>
+}:></define-tag>

