From 7a5e65595c29071edb27c6378cce2f3224ab8b56 Mon Sep 17 00:00:00 2001 From: Pierre Habouzit Date: Mon, 27 Aug 2007 17:01:48 +0200 Subject: [PATCH] non significant spaces suck, stage 5 Signed-off-by: Pierre Habouzit --- bin/devel/xhtml.classes.pl | 4 ++-- bin/lists.mhonarc_by_month.pl | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/devel/xhtml.classes.pl b/bin/devel/xhtml.classes.pl index f0524ef..2b66b6e 100755 --- a/bin/devel/xhtml.classes.pl +++ b/bin/devel/xhtml.classes.pl @@ -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); } } diff --git a/bin/lists.mhonarc_by_month.pl b/bin/lists.mhonarc_by_month.pl index c1b41d1..330434f 100755 --- a/bin/lists.mhonarc_by_month.pl +++ b/bin/lists.mhonarc_by_month.pl @@ -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; } -- 2.1.4