Use m{} rather than m## for pattern match.

git-svn-id: svn://svn.debian.org/cruft/trunk@209 14f89510-8efc-0310-927e-d869d0d96f2b
a-detiste · Mar 2, 2011 · 8592370 · 8592370
1 parent 320dd56
commit 8592370
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/explain/ALTERNATIVES b/explain/ALTERNATIVES
@@ -4,7 +4,7 @@ open( NEED, ">&=3" ) || die( "Couldn't open output for needed files!?!" );
 
 while( defined($alternative_file = glob("/var/lib/dpkg/alternatives/*")) )
 {
-    $name = "$1" if $alternative_file =~ m#^.*/([^/]*)$#;
+    $name = "$1" if $alternative_file =~ m{^.*/([^/]*)$};
 
     open( FILE, $alternative_file ) || die( "Couldn't open $alternative_file\n" );