]>
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 |