--- trunk/lib/WebPAC/Input.pm	2008/11/17 21:18:16	1121
+++ trunk/lib/WebPAC/Input.pm	2008/11/17 21:30:05	1122
@@ -315,7 +315,7 @@
 							warn "*** $d\n" if ($debug);
 
 						}
-						$log->error("error applying regex: ",dump($r)) if ($@);
+						$log->error("error applying regex: ",dump($r), $@) if $@;
 					}
 				}