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
4 # marker, such as occurs right here. Draw the line somewhere.
5 if ( m/^.*\Wq[qxwr]?\s*([\{\(\[#|\/])[^})\]#|\/]*$/ && ! m/^\s*(require|use)\s/ ) {
7 - $tag =~ tr/{\(\[\#|\//})]#|\//;
9 - ( $_ =~ m/\}/ ) && last;
11 + $tag =~ tr/{([/})]/;
12 + $_ = <FILE> until m/\Q$tag\E/;
15 # skip the documentation