RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
____________________________________________________________________________
Server: rpm5.org Name: Arkadiusz Miskiewicz
Root: /v/rpm/cvs Email: [EMAIL PROTECTED]
Module: rpm Date: 28-Aug-2008 13:51:55
Branch: HEAD Handle: 2008082811515500
Modified files:
rpm/scripts perl.req
Log:
Skip multiline qw() sections a bit better ([EMAIL PROTECTED]).
Summary:
Revision Changes Path
1.17 +2 -4 rpm/scripts/perl.req
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: rpm/scripts/perl.req
============================================================================
$ cvs diff -u -r1.16 -r1.17 perl.req
--- rpm/scripts/perl.req 26 Aug 2008 18:44:53 -0000 1.16
+++ rpm/scripts/perl.req 28 Aug 2008 11:51:55 -0000 1.17
@@ -95,10 +95,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
@@ .
______________________________________________________________________
RPM Package Manager http://rpm5.org
CVS Sources Repository rpm-cvs@rpm5.org
