18 lines
812 B
Diff
18 lines
812 B
Diff
# Derived from upstream commit 1d9a0018f9cde8fc5c59df9af70a2164e672210f
|
|
--- rpm-4.8.0/scripts/perl.req.orig 2015-11-25 15:18:00.166530563 +0100
|
|
+++ rpm-4.8.0/scripts/perl.req 2015-11-25 15:18:31.803118545 +0100
|
|
@@ -139,10 +139,10 @@
|
|
# within a multi-line print statement. So, let's skip over such print
|
|
# statements whose content should not be loading modules anyway. -BEF-
|
|
#
|
|
- if ( m/print(\s+|\s+\S+\s+)\<\<(.*)/g ) {
|
|
+ if (m/print(?:\s+|\s+\S+\s+)\<\<\s*(["'`])(.+?)\1/ ||
|
|
+ m/print(\s+|\s+\S+\s+)\<\<(\w+)/) {
|
|
+
|
|
my $tag = $2;
|
|
- $tag =~ s/^\s*['"]//; # strip off leading space and quote
|
|
- $tag =~ s/["']\s*;\s*$//; # strip off trailing quote and space and semicolon
|
|
while (<FILE>) {
|
|
chomp;
|
|
( $_ eq $tag ) && last;
|
