14 lines
446 B
Diff
14 lines
446 B
Diff
--- rpm-4.8.0/scripts/perl.req.orig 2011-11-08 10:22:35.339068490 -0500
|
|
+++ rpm-4.8.0/scripts/perl.req 2011-11-08 10:23:25.804976974 -0500
|
|
@@ -98,8 +98,9 @@
|
|
if ( m/^.*\Wq[qxwr]?\s*([\{\(\[#|\/])[^})\]#|\/]*$/ && ! m/^\s*(require|use)\s/ ) {
|
|
$tag = $1;
|
|
$tag =~ tr/{\(\[\#|\//})]#|\//;
|
|
+ $tag = quotemeta($tag);
|
|
while (<FILE>) {
|
|
- ( $_ =~ m/\}/ ) && last;
|
|
+ ( $_ =~ m/$tag/ ) && last;
|
|
}
|
|
}
|
|
|
