Re: [PATCH (incomplete)] Make regcomp use SV* sv, instead of char* exp, char* xend

Message-ID: <51dd1af80704211430m6ad1b4afy49b069faa61e33a9@mail.gmail.com>

p4raw-id: //depot/perl@31027

1 files changed, 2 insertions, 2 deletions

diff --git a/uupacktool.pl b/uupacktool.pl
index 9872a9e94e..20554d721d 100644
--- a/uupacktool.pl
+++ b/uupacktool.pl
@@ -16,7 +16,7 @@ sub handle_file {
     my $mode    = (stat($file))[2] & 07777;
 
     open my $fh, "<", $file
-        or die "Could not open input file $file: $!";
+        or do { warn "Could not open input file $file: $!"; exit 0 };
     binmode $fh;
     my $str = do { local $/; <$fh> };
 
@@ -62,7 +62,7 @@ EOFBLURB
     } else {
         print "Writing $file into $outfile\n" if $opts->{'v'};
         open my $outfh, ">", $outfile
-            or die "Could not open $outfile for writing: $!";
+            or do { warn "Could not open $outfile for writing: $!"; exit 0 };
         binmode $outfh;
         ### $outstr might be empty, if the file was empty
         print $outfh $outstr if $outstr;