view release on metacpan or  search on metacpan

bin/rename.PL  view on Meta::CPAN

require '../lib/App/rename.pm';

($VERSION) = $App::rename::VERSION;

($file = basename($0)) =~ s/\.PL$//;
$file =~ s/\.pl$//
	if ($Config{'osname'} eq 'VMS' or
	    $Config{'osname'} eq 'OS2');  # "case-forgiving"
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file\n";

$code = <<"!DO!SUBST!";
$Config{'startperl'} -CASL

#line 18

use strict;

use Getopt::Long;