From fae7151624f74e035511b417cfca83eac21af7f0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Mar 2012 12:17:28 +0000 Subject: (cleanrpmsrate) reduce scope of some variables --- pm/MGATools/rpmsrate.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'pm') diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 4cd35e4..384b078 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -202,12 +202,14 @@ sub cleanrpmsrate { } @{$done{$_}}; my ($d) = /(.*)-[^-]+/; - my ($a, $b, $e, $do); + my ($e, $do); if (!$is_plain_flag) { + my ($a, $b); if ((s/(-devel)// ? ($b = "-devel") : /^$kernel_like/) && ($rpms{$_} || (defined $rpms{"lib$_"} and $a = "lib") || (defined $rpms{"lib64$_"} and $a = "lib64") || (s/^lib(.*?)[_-]*[\d._]*(-.*)?$/$1$2/g && defined $rpms{"lib64$_"} and $a = 'lib64'))) { + warn ">> looking at $c\n"; $e = $rpms{"$a$_"}[1] . $rpms{"$a$_"}[0] . $rpms{"$a$_"}[2] . $b; $do = 1; } elsif (/^$rpmsrate_dkms_like$/ && $rpms{"$1$2"}) { -- cgit v1.2.1 [tv]
summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-04 23:07:59 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-04 23:07:59 +0000
commit844d3a1dbf49c9124e020f74b3712f9bd3013aa6 (patch)
tree6adb5d5329bd81054ec104b931127e80083178a0 /lib
parent33e037509a7e6ce5d0e0cb61c36213d063127774 (diff)
downloadperl-MDK-Common-844d3a1dbf49c9124e020f74b3712f9bd3013aa6.tar
perl-MDK-Common-844d3a1dbf49c9124e020f74b3712f9bd3013aa6.tar.gz
perl-MDK-Common-844d3a1dbf49c9124e020f74b3712f9bd3013aa6.tar.bz2
perl-MDK-Common-844d3a1dbf49c9124e020f74b3712f9bd3013aa6.tar.xz
perl-MDK-Common-844d3a1dbf49c9124e020f74b3712f9bd3013aa6.zip
refresh example in doc
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common/File.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm
index 4dbb99d..ca74230 100644
--- a/lib/MDK/Common/File.pm
+++ b/lib/MDK/Common/File.pm
@@ -120,7 +120,7 @@ is reached using C<eof>
=item expand_symlinks(FILENAME)
expand the symlinks in the absolute filename:
-C<expand_symlinks("/etc/X11/X")> gives "/usr/X11R6/bin/XFree86"
+C<expand_symlinks("/etc/X11/X")> gives "/usr/bin/Xorg"
=item openFileMaybeCompressed(FILENAME)
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-16 11:59:21 +0000