fix error message display

The gettext call can clear $@ in at least some cases.

diff --git a/IkiWiki.pm b/IkiWiki.pm
index b47da966ed548f03a1ca2c03031fcd8cc084be15..bac48c9a409ecbc0af863d58dbdcede06b89c265 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -1255,9 +1255,10 @@ sub preprocess ($$$;$$) {
                                        );
                                };
                                if ($@) {
-                                       chomp $@;
+                                       my $error=$@;
+                                       chomp $error;
                                        $ret="[[!$command <span class=\"error\">".
-                                               gettext("Error").": $@"."</span>]]";
+                                               gettext("Error").": $error"."</span>]]";
                                }
                        }
                        else {