[XaraXtreme-commits] Commit Complete

[subversion@xxxxxxxxxxxxxx]

Commit by  : alex
Repository : xara
Revision   : 1277
Date       : Thu Jun  8 21:40:02 BST 2006

Changed paths:
   M /Trunk/XaraLX/Scripts/normalise.pl

Fixed broken pattern match on --removeinclude


Diff:
Index: Trunk/XaraLX/Scripts/normalise.pl
===================================================================
--- Trunk/XaraLX/Scripts/normalise.pl	(revision 1276)
+++ Trunk/XaraLX/Scripts/normalise.pl	(revision 1277)
@@ -732,10 +732,11 @@
 	my $p="";
 	foreach $i (@removeinclude)
 	{
-	    $i=s/\./\\./g;
+	    $i=~s/\./\\./g;
 	    $p.="|" if ($p ne "");
 	    $p.="($i)"
 	}
 	$removeincludepat=qr/^\s*\#include\s+\"$p\".*$/;
+	print STDERR "Remove pattern $removeincludepat
" if ($verbose);
     }
 }


Xara