Handle present `File::Remove'.
authorlace <>
Wed, 11 Apr 2007 14:46:27 +0000 (14:46 +0000)
committerlace <>
Wed, 11 Apr 2007 14:46:27 +0000 (14:46 +0000)
bin/cvsutil

index 26b49a9..7aa18ec 100755 (executable)
@@ -18,8 +18,8 @@ use Cwd qw(chdir fastgetcwd);
 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]) {