r6240 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Aug  3 19:33:51 2007
New Revision: 6240

URL: http://svn.debian.org/wsvn/?sc=1&rev=6240
Log:
q[..] is actually equal to '..', not ".."

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/trunk/dh-make-perl/dh-make-perl?rev=6240&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Fri Aug  3 19:33:51 2007
@@ -471,7 +471,7 @@
 	}
 
 	# Replace q[quotes] by "quotes"
-	$file =~ s/q\[(.+)]/"$1"/g;
+	$file =~ s/q\[(.+)]/'$1'/g;
 
 	# Get the name
 	if ($file =~ /([\'\"]?)