Update Changes.
[p5sagit/p5-mst-13.2.git] / utils / pl2pm.PL
index 4f50f17..f4ca79d 100644 (file)
@@ -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,7 +127,7 @@ while (<>) {
     }
 
     if ( open(PM, ">$newname") ) {
-       print PM <<"END";
+        print PM <<"END";
 package $newpack;
 require 5.6.0;
 require Exporter;