my %PREREQ_PM = (
'B::Hooks::EndOfScope' => 0,
'DynaLoader' => 0,
+ 'Scalar::Util' => 0,
'Variable::Magic' => '0.39',
);
open my $fh, '>', $args_dat or die "open(>$args_dat): $!";
for (@ARGV) {
my $arg = $_;
+ $arg =~ s{\s*(['"])\s*(.*)\s*\1\s*$}{$2}s;
$arg =~ s{([^=/.a-zA-Z0-9-])}{sprintf "[%d]", ord $1}ge;
print $fh "$arg\n";
}