summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorVille Skyttä <ville.skytta@iki.fi>2010-02-03 23:14:27 +0200
committerPanu Matilainen <pmatilai@redhat.com>2010-02-11 15:39:36 +0200
commit4302a06700656da0d82a91964581e74f04bec9e4 (patch)
treee05ab8ec3e03220fc3722a86edb347525d8d9f74 /scripts
parent0f743d36d6151948f3b5c186216d72d5c21660d3 (diff)
downloadrpm-4302a06700656da0d82a91964581e74f04bec9e4.tar.gz
rpm-4302a06700656da0d82a91964581e74f04bec9e4.tar.bz2
rpm-4302a06700656da0d82a91964581e74f04bec9e4.zip
Avoid some stat() calls.
Diffstat (limited to 'scripts')
-rw-r--r--scripts/osgideps.pl6
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 {