Ticket #128: 0002-More-here-doc-skipping-fixes-for-perl.req-128.patch

File 0002-More-here-doc-skipping-fixes-for-perl.req-128.patch, 0.8 kB (added by scop, 2 years ago)

More here-doc skipping fixes as discussed

  • a/scripts/perl.req

    old new  
    104104 
    105105    # skip the "= <<" block 
    106106 
    107     if (m/^\s*\$(?:.*)\s*=\s*<<\s*(["'`])(.*)\1/ || 
    108         m/^\s*\$(.*)\s*=\s*<<(\w*)\s*;/) { 
     107    if (m/^\s*\$(?:.*)\s*=\s*<<\s*(["'`])(.+?)\1/ || 
     108        m/^\s*\$(.*)\s*=\s*<<(\w+)\s*;/) { 
    109109      $tag = $2; 
    110110      while (<FILE>) { 
    111111        chomp;