Path: utzoo!attcan!uunet!deimos!ux1.cso.uiuc.edu!uwm.edu!ogicse!schaefer
From: schaefer@ogicse.ogi.edu (Barton E. Schaefer)
Newsgroups: comp.lang.perl
Subject: Re: Silent Bomb
Message-ID: <8005@ogicse.ogi.edu>
Date: 14 Mar 90 20:29:40 GMT
References: <11238@deimos.ADS.COM> <7997@ogicse.ogi.edu>
Organization: Oregon Graduate Institute (formerly OGC), Beaverton, OR
Lines: 21

In article <7997@ogicse.ogi.edu> hakanson@ogicse.ogi.edu (Marion Hakanson) writes:
} 
} unless ( do 'sub.pl' ) {
}   die "$@aborted" if $@;
}   die "Cannot load sub.pl: $!, aborted";
} }
} 
} I'm sure someone will convert it to a one-liner....

How about

do 'sub.pl' || ($@ ne "" && die "$@aborted") || die "Can't load sub.pl: $!";

Now the only thing I can't figure out is why the parentheses are necessary.
Doesn't && "bind tighter" than || ?  If not, why not?  I thought this was
supposed to act like C ...
-- 
Bart Schaefer          "EARTH: Surrender IMMEDIATELY or we PICKLE DAN QUAYLE"

                                                                    "THPPFT!"
schaefer@cse.ogi.edu (used to be cse.ogc.edu)