non significant spaces suck, stage 5
authorPierre Habouzit <madcoder@debian.org>
Mon, 27 Aug 2007 15:01:48 +0000 (17:01 +0200)
committerPierre Habouzit <madcoder@debian.org>
Mon, 27 Aug 2007 15:01:48 +0000 (17:01 +0200)
Signed-off-by: Pierre Habouzit <madcoder@debian.org>
bin/devel/xhtml.classes.pl
bin/lists.mhonarc_by_month.pl

index f0524ef..2b66b6e 100755 (executable)
@@ -91,7 +91,7 @@ sub parse_tag($$) {
         if($tag =~ / (checked|disabled|multiple|readonly)( |$)/);
     print STDERR "${red}XHTML error: ${yel}attribut $1 ${blu}($file)${gra}\n"
         if($tag =~ / (align|width|border|color|valign)=/);
-   
+
     # récupération des classes utilisées ...
     if($tag =~ /^(\w+).* class=('{[^}]*}'|"{[^}]*}"|'[^{}']*'|"[^{}"]*")/) {
         my $t = lc($1);
@@ -102,7 +102,7 @@ sub parse_tag($$) {
             foreach my $cl (@cycle) {
                     &class_add($file,$t,$cl) if($cl);
             }
-        } else {   
+        } else {
             &class_add($file,$t,$c);
         }
     }
index c1b41d1..330434f 100755 (executable)
@@ -13,7 +13,7 @@ my $list   = shift;
 #
 ################################################################################
 # CONSTANTS
-# 
+#
 my $spool  = "/var/spool/platal/archives/";
 my $tmpbox = "mytmpbox.mbox";
 
@@ -64,13 +64,13 @@ while(<>) {
                 # dummy init
                 $odir = 1;
             }
-                
+
             $m = $conv{$1};
             $y = $2;
             open FILE,"> $tmpbox";
         }
     }
-    
+
     print FILE $line;
 }