better error messages

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 4207b95..d2a5865 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -125,7 +125,7 @@ sub data_structure {
        no strict 'subs';
        no warnings 'all';
        eval "$arg->{rules};";
-       die "error evaling $arg->{rules}: $@\n" if ($@);
+       die "error evaling [$@] using rules " . $arg->{rules} . "\n" if ($@);
 
        return _get_ds();
 }