fix printing of $@, which is clobbered by the call to gettext

problem reported by viric

diff --git a/IkiWiki/Setup/Automator.pm b/IkiWiki/Setup/Automator.pm
index e9a572450d07d3cf885355992c26ea9a5950ada4..38e0d4422bc0506ec2249273299313e672777a70 100644 (file)
--- a/IkiWiki/Setup/Automator.pm
+++ b/IkiWiki/Setup/Automator.pm
@@ -124,9 +124,10 @@ sub import (@) {
                                IkiWiki::run_hooks(checkconfig => sub { shift->() });
                        };
                        if ($@) {
                                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 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;
                        }
                }
                                push @{$bakconfig{disable_plugins}}, $plugin;
                        }
                }