- skip multiline qw() sections a bit better

Changed files:
    rpm-perl_req-skip_multiline.patch -> 1.1

diff --git a/rpm-perl_req-skip_multiline.patch b/rpm-perl_req-skip_multiline.patch
new file mode 100644 (file)
index 0000000..e94feb3
--- /dev/null
+++ b/rpm-perl_req-skip_multiline.patch
@@ -0,0 +1,15 @@
+--- rpm-5.1.4/scripts/perl.req~        2008-08-20 21:34:42.000000000 +0200
++++ rpm-5.1.4/scripts/perl.req 2008-08-28 12:45:14.820174910 +0200
+@@ -156,10 +156,8 @@
+     # marker, such as occurs right here. Draw the line somewhere.
+     if ( m/^.*\Wq[qxwr]?\s*([\{\(\[#|\/])[^})\]#|\/]*$/ && ! m/^\s*(require|use)\s/ ) {
+       $tag = $1;
+-      $tag =~ tr/{\(\[\#|\//})]#|\//;
+-      while (<FILE>) {
+-        ( $_ =~ m/\}/ ) && last;
+-      }
++      $tag =~ tr/{([/})]/;
++      $_ = <FILE> until m/\Q$tag\E/;
+     }
+ 
+     # skip the documentation