dump error from $@

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1122 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 240c137..e400e7a 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -315,7 +315,7 @@ sub open {
                                                        warn "*** $d\n" if ($debug);
 
                                                }
-                                               $log->error("error applying regex: ",dump($r)) if ($@);
+                                               $log->error("error applying regex: ",dump($r), $@) if $@;
                                        }
                                }