fix printing of $@, which is clobbered by the call to gettext
authorJoey Hess <joey@gnu.kitenet.net>
Sun, 28 Mar 2010 21:17:07 +0000 (17:17 -0400)
committerJoey Hess <joey@gnu.kitenet.net>
Sun, 28 Mar 2010 21:17:07 +0000 (17:17 -0400)
problem reported by viric

IkiWiki/Setup/Automator.pm

index e9a572450d07d3cf885355992c26ea9a5950ada4..38e0d4422bc0506ec2249273299313e672777a70 100644 (file)
@@ -124,9 +124,10 @@ sub import (@) {
                                IkiWiki::run_hooks(checkconfig => sub { shift->() });
                        };
                        if ($@) {
+                               my $err=$@;
                                print STDERR sprintf(gettext("** Disabling plugin %s, since it is failing with this message:"),
                                        $plugin)."\n";
-                               print STDERR "$@\n";
+                               print STDERR "$err\n";
                                push @{$bakconfig{disable_plugins}}, $plugin;
                        }
                }