diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-02 04:35:24 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-02 04:35:24 +0000 |
commit | 475d5b279433dbf5b755a0b52bbdce7e1ed49ab0 (patch) | |
tree | 61ea28403f4f8f2fa7d69bab3f0694bbb92c5d1a /relative_me_babe | |
parent | f85d7cf0bb1d74ead24d0ed56574b8641714fbc7 (diff) | |
download | spec-helper-475d5b279433dbf5b755a0b52bbdce7e1ed49ab0.tar spec-helper-475d5b279433dbf5b755a0b52bbdce7e1ed49ab0.tar.gz spec-helper-475d5b279433dbf5b755a0b52bbdce7e1ed49ab0.tar.bz2 spec-helper-475d5b279433dbf5b755a0b52bbdce7e1ed49ab0.tar.xz spec-helper-475d5b279433dbf5b755a0b52bbdce7e1ed49ab0.zip |
perl_checker cleanups
Diffstat (limited to 'relative_me_babe')
-rwxr-xr-x | relative_me_babe | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/relative_me_babe b/relative_me_babe index e390a18..e55b9df 100755 --- a/relative_me_babe +++ b/relative_me_babe @@ -9,10 +9,9 @@ my $r=$ENV{RPM_BUILD_ROOT}; chdir($r) or "Can't cd to $ENV{RPM_BUILD_ROOT}: $!"; push my @files, split(/\n/, `find -type l 2> /dev/null`); -for (@files) { - my $file = $_; - my $link=readlink($file); - if ($link =~ /^\//) { +foreach my $file (@files) { + my $link = readlink($file); + if ($link =~ m!^/!) { $link =~ s|^/||; # Ugly ? no simply chmou. (my $dirname = $file) =~ s|/[^/]*$||; $dirname =~ s|/[^/]+|../|g; $dirname =~ s|^\.||; |