VMS update

[p5sagit/p5-mst-13.2.git] / utils / perlbug.PL

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 064d71d..040c6cb 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -505,7 +505,7 @@ EOF
 tryagain:
        if(!$usefile and !$body) {
                my($sts) = system("$ed $filename");
-               if( $Is_VMS ? !($sts & 1) : $sts ) {
+               if( $sts ) {
                        #print "\nUnable to run editor!\n";
                        paraprint <<EOF;
 
@@ -683,7 +683,7 @@ sub Send {
                        }
                        $subject =~ s/"/""/g; $address =~ s/"/""/g; $cc =~ s/"/""/g;
                        my($sts) = system(qq[mail/Subject="$subject" $filename. "$address","$cc"]);
-                       if (!($sts & 1)) { die "Can't spawn off mail\n\t(leaving bug report in $filename): $sts\n;" }
+                       if ($sts) { die "Can't spawn off mail\n\t(leaving bug report in $filename): $sts\n;" }
                } else {
                        my($sendmail) = "";