summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorrmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af>2008-05-28 08:05:12 +0000
committerrmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af>2008-05-28 08:05:12 +0000
commitc60be23afb65013ff10354cece62d7b3e29ca339 (patch)
tree1cbef0d0037a51decea0adb5c834777230f5df84
parenta2f5d6f1d076aa5bebcb4f897b746b2658895cb0 (diff)
Removed last instance of $*, no longer supported in Perl 5.10.
git-svn-id: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@23 190e5f8e-a817-0410-acf6-e9863daed9af
-rw-r--r--mcon/pl/files.pl3
1 files changed, 1 insertions, 2 deletions
diff --git a/mcon/pl/files.pl b/mcon/pl/files.pl
index 9e6bd08..3962fa6 100644
--- a/mcon/pl/files.pl
+++ b/mcon/pl/files.pl
@@ -102,8 +102,7 @@ EOF
# Remove ':' quotations in front of the lines
sub q {
local($_) = @_;
- local($*) = 1;
- s/^://g;
+ s/^://gm;
$_;
}