- rpm.org RPM, merged from PLD

[packages/rpm.git] / rpm-perl_req-skip_multiline.patch

diff --git a/rpm-perl_req-skip_multiline.patch b/rpm-perl_req-skip_multiline.patch
deleted file mode 100644 (file)
index e94feb3..0000000
--- a/rpm-perl_req-skip_multiline.patch
+++ /dev/null
@@ -1,15 +0,0 @@
---- rpm-5.1.4/scripts/perl.req~        2008-08-20 21:34:42.000000000 +0200
-+++ rpm-5.1.4/scripts/perl.req 2008-08-28 12:45:14.820174910 +0200
-@@ -156,10 +156,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