From 7caf820c778351baa237f04cb652d55f24811349 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ville=20Skytt=C3=A4?= Date: Sun, 23 May 2010 10:54:39 +0300 Subject: [PATCH] Extract dependencies from "use base qw"..."" and "use base qw'...'". --- scripts/perl.req | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/perl.req b/scripts/perl.req index 1b7286a..07c5491 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -173,7 +173,7 @@ sub process_file { ['"]?([^; '"\t#]*)['"]?[\t; ] # the syntax for 'use' allows version requirements # the latter part is for "use base qw(Foo)" and friends special case - \s*($modver_re|(qw\s*[(\/]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? + \s*($modver_re|(qw\s*[(\/'"]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? /x) ) { my ($whitespace, $statement, $module, $version) = ($1, $2, $3, $4); @@ -264,7 +264,7 @@ sub process_file { # use base qw(Foo) dependencies if ($statement eq "use" && $module eq "base") { add_require($module, undef); - if ($version =~ /^qw\s*[(\/]\s*([^)\/]+?)\s*[)\/]/) { + if ($version =~ /^qw\s*[(\/'"]\s*([^)\/"']+?)\s*[)\/"']/) { add_require($_, undef) for split(' ', $1); } elsif ($version =~ /(["'])([^"']+)\1/) { -- 2.7.4