prefer $@ for eval errors

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index 8ea9a0c970c7442aba681d895ff1dcb8ebcb8821..e26b6550de3d2656f6a464ef55f4429c46aa5d1d 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -46,7 +46,7 @@ for (
        my @table = do "writing-$source.inc.pl";
        if ($! or $@) {
                print "<h2>$title</h2>\n";
-               printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
+               printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
                next;
        }
        $glyphs->print($title => [map {