[Po4a-commits] po4a/lib/Locale/Po4a Chooser.pm,1.25,1.26

[Martin Quinson]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv5395/lib/Locale/Po4a

Modified Files:
	Chooser.pm 
Log Message:
Store '$@' in an intermediate variable so it does not get clobbered before we report the plugin-load error.

Index: Chooser.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Chooser.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- Chooser.pm	27 Feb 2005 23:32:02 -0000	1.25
+++ Chooser.pm	25 May 2005 17:08:40 -0000	1.26
@@ -41,9 +41,10 @@
     if (! UNIVERSAL::can("Locale::Po4a::$modname", 'new')) {
         eval qq{use Locale::Po4a::$modname};
         if ($@) {
+            my $error=$@;
             warn wrap_msg(gettext("Unknown format type: %s."), $module);
 	    warn wrap_mod("po4a::chooser",
-		gettext("Module loading error: %s"), $@)
+		gettext("Module loading error: %s"), $error)
 	      if defined $options{'verbose'} && $options{'verbose'} > 0;
             list(1);
         }