r458@llin: dpavlin | 2006-02-15 17:01:53 +0100

 fix warnings

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 3dc5b5f..f3bf6fb 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -471,15 +471,20 @@ sub fill_in {
        # remove filter{...} from beginning
        $filter_name = $1 if ($format =~ s/^filter{([^}]+)}//s);
 
-       # do actual replacement of placeholders
-       # repeatable fields
-       if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found,$rec_size)/ges) {
-               $just_single = 0;
-       }
+       {
+               # fix warnings
+               no warnings 'uninitialized';
 
-       # non-repeatable fields
-       if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found,$rec_size)/ges) {
-               return if ($i > 0 && $just_single);
+               # do actual replacement of placeholders
+               # repeatable fields
+               if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found,$rec_size)/ges) {
+                       $just_single = 0;
+               }
+
+               # non-repeatable fields
+               if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found,$rec_size)/ges) {
+                       return if ($i > 0 && $just_single);
+               }
        }
 
        if ($found) {