dump error from $@

[webpac2] / lib / WebPAC / Input.pm

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 $@;
                                        }
                                }