Revert "Replace $(MINIPERL) -"I[-.lib]" with $(MINIPERL_UP)"

[perl5.git] / utils / pl2pm.PL

diff --git a/utils/pl2pm.PL b/utils/pl2pm.PL
index 472a478..b7e1cea 100644 (file)
--- a/utils/pl2pm.PL
+++ b/utils/pl2pm.PL
@@ -1,4 +1,4 @@
-#!/usr/local/bin/per
+#!/usr/local/bin/perl
 
 use Config;
 use File::Basename qw(&basename &dirname);
@@ -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);
@@ -169,11 +170,12 @@ sub xlate {
 __END__
 AUTOLOAD
 BEGIN
+CHECK
 CORE
 DESTROY
 END
 INIT
-CHECK
+UNITCHECK
 abs
 accept
 alarm
@@ -312,7 +314,6 @@ q
 qq
 qr
 quotemeta
-qu
 qw
 qx
 rand