X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fpl2pm.PL;h=d135bc8c45c5b7251f9bf6dbeda3053008f3bde9;hb=8c56068e9474ff1eb28abd58496550d54581dd25;hp=4f50f17cbb19a9c69d733e225bfaa5135fe914e8;hpb=8d3e0ca64ee90572736d9848a327d0c05ddd56ae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/pl2pm.PL b/utils/pl2pm.PL
index 4f50f17..d135bc8 100644
--- a/utils/pl2pm.PL
+++ b/utils/pl2pm.PL
@@ -116,6 +116,7 @@ while (<>) {
     my $export_ok = '';
     my $carp      ='';
 
+
     if (s/\bdie\b/croak/g) {
 	$carp = "use Carp;\n";
 	s/croak "([^"]*)\\n"/croak "$1"/g;
@@ -126,9 +127,9 @@ while (<>) {
     }
 
     if ( open(PM, ">$newname") ) {
-       print PM <<"END";
+        print PM <<"END";
 package $newpack;
-require 5.6.0;
+use 5.006;
 require Exporter;
 $carp
 \@ISA = qw(Exporter);
@@ -312,7 +313,6 @@ q
 qq
 qr
 quotemeta
-qu
 qw
 qx
 rand