diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2010-02-03 23:14:27 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-02-11 15:39:36 +0200 |
| commit | 4302a06700656da0d82a91964581e74f04bec9e4 (patch) | |
| tree | e05ab8ec3e03220fc3722a86edb347525d8d9f74 /scripts | |
| parent | 0f743d36d6151948f3b5c186216d72d5c21660d3 (diff) | |
| download | rpm-4302a06700656da0d82a91964581e74f04bec9e4.tar.gz rpm-4302a06700656da0d82a91964581e74f04bec9e4.tar.bz2 rpm-4302a06700656da0d82a91964581e74f04bec9e4.zip | |
Avoid some stat() calls.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/osgideps.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/osgideps.pl b/scripts/osgideps.pl index 0164a4c3e..ab92b6568 100644 --- a/scripts/osgideps.pl +++ b/scripts/osgideps.pl @@ -57,7 +57,7 @@ sub getProvides { while ( my $file = $queue->dequeue_nb ) { chomp($file); # we don't follow symlinks for provides - next if ( -f $file && -r $file && -l $file ); + next if ( -f $file && -r _ && -l _ ); $file =~ s/[^[:print:]]//g; if ( $file =~ m/$MANIFEST_NAME$/ || $file =~ m/\.jar$/ ) { if ( $file =~ m/\.jar$/ ) { @@ -149,7 +149,7 @@ sub getRequires { sub getRequiresWorker { while ( my $file = $queue->dequeue_nb ) { - next if ( -f $file && -r $file ); + next if ( -f $file && -r _ ); $file =~ s/[^[:print:]]//g; if ( $file =~ m/$MANIFEST_NAME$/ || $file =~ m/\.jar$/ ) { # we explicitly requires symlinked jars @@ -240,7 +240,7 @@ sub getRequires { # this function print system bundles of OSGi profile files. sub getSystemBundles { foreach $file (@_) { - if ( ! -f $file || ! -r $file ) { + if ( ! -f $file || ! -r _ ) { print "'$file' file not found or cannot be read!"; next; } else { |