aboutsummaryrefslogtreecommitdiffstats
path: root/perl.req
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-07-25 17:02:02 +0000
committerThierry Vignaud <tv@mageia.org>2012-07-25 17:02:02 +0000
commit8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4 (patch)
tree4e700c9f07b33d3962625905c473fb414f011f2d /perl.req
parent9cccdf20f2e40be8de837a796127aff97054ec26 (diff)
downloadrpm-setup-8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4.tar
rpm-setup-8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4.tar.gz
rpm-setup-8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4.tar.bz2
rpm-setup-8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4.tar.xz
rpm-setup-8847d2bd174fdcb5f02e52d3c3ac22fc89deaea4.zip
sync with upstream rpm.org:
"perl.{req,prov} whitespace, backslash and paren cleanups." (Ville Skyttä, 2010-01-24)
Diffstat (limited to 'perl.req')
-rwxr-xr-xperl.req8
1 files changed, 4 insertions, 4 deletions
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/\//::/;