From 8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:02:02 +0000
Subject: =?UTF-8?q?sync=20with=20upstream=20rpm.org:=20"perl.{req,prov}=20?=
 =?UTF-8?q?whitespace,=20backslash=20and=20paren=20cleanups."=20(Ville=20S?=
 =?UTF-8?q?kytt=C3=A4,=202010-01-24)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 perl.req | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl.req')

diff --git a/perl.req b/perl.req
index cf63adf..1b44ae1 100755
--- a/perl.req
+++ b/perl.req
@@ -44,10 +44,10 @@ if ("@ARGV") {
     process_file($_);
   }
 } else {
-  
+
   # notice we are passed a list of filenames NOT as common in unix the
   # contents of the file.
-  
+
   foreach (<>) {
     chomp $_;
     process_file($_) if -f $_;
@@ -107,7 +107,7 @@ sub process_file {
     if ( (m/^=(over)/) .. (m/^=(back)/) ) {
       next;
     }
-    
+
     # skip the data section
     if (m/^__(DATA|END)__$/) {
       last;
@@ -198,7 +198,7 @@ sub process_file {
 
       $module =~ s/\.pm$//;
 
-      # some perl programmers write 'require URI/URL;' when 
+      # some perl programmers write 'require URI/URL;' when
       # they mean 'require URI::URL;'
 
       $module =~ s/\//::/;
-- 
cgit v1.2.1