Ticket #160: 0002-Extract-dependencies-from-use-base-qw-.-and-use-base.patch

File 0002-Extract-dependencies-from-use-base-qw-.-and-use-base.patch, 1.3 kB (added by scop, 2 years ago)

  • a/scripts/perl.req

    old new  
    173173         ['"]?([^; '"\t#]*)['"]?[\t; ] 
    174174         # the syntax for 'use' allows version requirements 
    175175         # the latter part is for "use base qw(Foo)" and friends special case 
    176          \s*($modver_re|(qw\s*[(\/]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? 
     176         \s*($modver_re|(qw\s*[(\/'"]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? 
    177177         /x) 
    178178       ) { 
    179179      my ($whitespace, $statement, $module, $version) = ($1, $2, $3, $4); 
    …… 
    264264      # use base qw(Foo) dependencies 
    265265      if ($statement eq "use" && $module eq "base") { 
    266266        add_require($module, undef); 
    267         if ($version =~ /^qw\s*[(\/]\s*([^)\/]+?)\s*[)\/]/) { 
     267        if ($version =~ /^qw\s*[(\/'"]\s*([^)\/"']+?)\s*[)\/"']/) { 
    268268          add_require($_, undef) for split(' ', $1); 
    269269        } 
    270270        elsif ($version =~ /(["'])([^"']+)\1/) {