prefer $@ for eval errors

[sheet.git] / sc.plp

diff --git a/sc.plp b/sc.plp
index 23d29ec7d87f69478348f2738679faaf7f8e9df3..7207117f79831f6f3928ae7bd33d6e24f10e418d 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -236,7 +236,7 @@ sub showrange {
        }
 
        my $units = do 'sc-units.inc.pl';
-       die "Cannot open unit data: $_\n" for $! || $@ || ();
+       die "Cannot open unit data: $_\n" for $@ || $! || ();
        my $grouped = !exists $get{order};
        if (exists $get{order}) {
                $get{order} ||= '';