[packages/rpm.git] / rpm-perl_req-skip_multiline.patch

--- 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
Commit	Line	Data
9f36f634	1	--- rpm-5.1.4/scripts/perl.req~ 2008-08-20 21:34:42.000000000 +0200
	2	+++ rpm-5.1.4/scripts/perl.req 2008-08-28 12:45:14.820174910 +0200
	3	@@ -156,10 +156,8 @@
	4	# marker, such as occurs right here. Draw the line somewhere.
	5	if ( m/^.\Wq[qxwr]?\s([\{\(\[#\|\/])[^})\]#\|\/]$/ && ! m/^\s(require\|use)\s/ ) {
	6	$tag = $1;
	7	- $tag =~ tr/{\(\[\#\|\//})]#\|\//;
	8	- while (<FILE>) {
	9	- ( $_ =~ m/\}/ ) && last;
	10	- }
	11	+ $tag =~ tr/{([/})]/;
	12	+ $_ = <FILE> until m/\Q$tag\E/;
	13	}
	14
	15	# skip the documentation