[Dist-svn] SF.net SVN: dist: [23] trunk/dist/mcon/pl/files.pl

[<rma...@us...>]

Revision: 23
          http://dist.svn.sourceforge.net/dist/?rev=23&view=rev
Author:   rmanfredi
Date:     2008-05-28 01:05:12 -0700 (Wed, 28 May 2008)

Log Message:
-----------
Removed last instance of $*, no longer supported in Perl 5.10.

Modified Paths:
--------------
    trunk/dist/mcon/pl/files.pl

Modified: trunk/dist/mcon/pl/files.pl
===================================================================
--- trunk/dist/mcon/pl/files.pl	2008-05-28 08:01:59 UTC (rev 22)
+++ trunk/dist/mcon/pl/files.pl	2008-05-28 08:05:12 UTC (rev 23)
@@ -102,8 +102,7 @@
 # Remove ':' quotations in front of the lines
 sub q {
 	local($_) = @_;
-	local($*) = 1;
-	s/^://g;
+	s/^://gm;
 	$_;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.