RPM Package Manager, CVS Repository
  http://rpm5.org/cvs/
  ____________________________________________________________________________

  Server: rpm5.org                         Name:   Arkadiusz Miskiewicz
  Root:   /v/rpm/cvs                       Email:  arekm@rpm5.org
  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 (radek@pld).

  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
  @@ .