use Errno qw(ENOENT);
use Carp qw(confess cluck croak carp);
BEGIN {
- if (!eval q{use File::Remove qw(remove);}) {{
- sub main::remove
+ if (!eval q{ use File::Remove qw(remove); 1; }) {{
+ sub main::remove(@)
{
my $r="";
if ("SCALAR" eq ref $_[0]) {