SOURCES: rpm-perl_req-skip_multiline.patch (NEW) - skip multiline qw() sect...

[radek]

Author: radek                        Date: Thu Aug 28 10:47:41 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- skip multiline qw() sections a bit better

---- Files affected:
SOURCES:
   rpm-perl_req-skip_multiline.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/rpm-perl_req-skip_multiline.patch
diff -u /dev/null SOURCES/rpm-perl_req-skip_multiline.patch:1.1
--- /dev/null	Thu Aug 28 12:47:42 2008
+++ SOURCES/rpm-perl_req-skip_multiline.patch	Thu Aug 28 12:47:36 2008
@@ -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
================================================================