From 60870d96de058efa9476f6ef6e1135732ae11679 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 28 Jul 2004 08:47:21 +0000
Subject: Use lexical filehandles.

---
 URPM/Build.pm | 54 +++++++++++++++++++++++++-----------------------------
 1 file changed, 25 insertions(+), 29 deletions(-)

diff --git a/URPM/Build.pm b/URPM/Build.pm
index 62dacca..f8a6932 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -12,7 +12,6 @@ use strict;
 sub parse_rpms_build_headers {
     my ($urpm, %options) = @_;
     my ($dir, %cache, @headers);
-    local (*DIR, *F);
 
     #- check for mandatory options.
     if (@{$options{rpms} || []} > 0) {
@@ -24,8 +23,8 @@ sub parse_rpms_build_headers {
 	#- examine cache if it contains any headers which will be much faster to read
 	#- than parsing rpm file directly.
 	unless ($options{clean}) {
-	    opendir DIR, $dir;
-	    while (my $file = readdir DIR) {
+	    opendir my $dirh, $dir;
+	    while (defined (my $file = readdir $dirh)) {
 		my ($fullname, $filename) = $file =~ /(.+?-[^:\-]+-[^:\-]+\.[^:\-\.]+)(?::(\S+))?$/ or next;
 		my @stat = stat "$dir/$file";
 		$cache{$filename || $fullname} = { file => $file,
@@ -33,11 +32,11 @@ sub parse_rpms_build_headers {
 						   time => $stat[9],
 						 };
 	    }
-	    closedir DIR;
+	    closedir $dirh;
 	}
 
 	foreach (@{$options{rpms}}) {
-	    my ($key) = m!([^/]*)\.rpm$! or next; #- get rpm filename.
+	    my ($key) = m{([^/]*)\.rpm$} or next; #- get rpm filename.
 	    my ($id, $filename);
 
 	    if ($cache{$key} && $cache{$key}{time} > 0 && $cache{$key}{time} >= (stat $_)[9]) {
@@ -71,9 +70,9 @@ sub parse_rpms_build_headers {
 		"$filename.rpm" eq $pkg->filename or $filename .= ":$key";
 
 		unless (-s "$dir/$filename") {
-		    open F, ">$dir/$filename" or die "unable to open $dir/$filename for writing\n";
-		    $pkg->build_header(fileno *F);
-		    close F;
+		    open my $fh, ">$dir/$filename" or die "unable to open $dir/$filename for writing\n";
+		    $pkg->build_header(fileno $fh);
+		    close $fh;
 		}
 		-s "$dir/$filename" or unlink("$dir/$filename"), die "can create header $dir/$filename\n";
 
@@ -412,15 +411,14 @@ sub build_hdlist {
     $ratio = $options{ratio} || 4;
     $split = $options{split} || 400000;
 
-    local *B;
-    open B, "| " . ($ENV{LD_LOADER} || '') . " packdrake -b${ratio}ds '$options{hdlist}' '$dir' $split";
+    open my $fh, "| " . ($ENV{LD_LOADER} || '') . " packdrake -b${ratio}ds '$options{hdlist}' '$dir' $split";
     foreach my $pkg (@{$urpm->{depslist}}[@idlist]) {
 	my $filename = $pkg->fullname;
-	"$filename.rpm" ne $pkg->filename && $pkg->filename =~ m!([^/]*)\.rpm$! and $filename .= ":$1";
+	"$filename.rpm" ne $pkg->filename && $pkg->filename =~ m{([^/]*)\.rpm$} and $filename .= ":$1";
 	-s "$dir/$filename" or die "bad header $dir/$filename\n";
-	print B "$filename\n";
+	print $fh "$filename\n";
     }
-    close B or die "packdrake failed\n";
+    close $fh or die "packdrake failed\n";
 }
 
 #- build synthesis file.
@@ -454,8 +452,7 @@ sub build_synthesis {
 
 
     #- second pass: write each info including files provided.
-    local *F;
-    $options{synthesis} and open F, "| " . ($ENV{LD_LOADER} || '') . " gzip -$ratio >'$options{synthesis}'";
+    $options{synthesis} and open my $fh, "| " . ($ENV{LD_LOADER} || '') . " gzip -$ratio >'$options{synthesis}'";
     foreach (@idlist) {
 	my $pkg = $urpm->{depslist}[$_];
 	my %files;
@@ -465,9 +462,9 @@ sub build_synthesis {
 	    delete @files{$pkg->provides_nosense};
 	}
 
-	$pkg->build_info($options{synthesis} ? fileno *F : $options{fd}, join('@', keys %files));
+	$pkg->build_info($options{synthesis} ? fileno $fh : $options{fd}, join('@', keys %files));
     }
-    close F;
+    close $fh;
 }
 
 #- write depslist.ordered file according to info in params.
@@ -477,43 +474,42 @@ sub build_synthesis {
 #-   compss   : compss file to create.
 sub build_base_files {
     my ($urpm, %options) = @_;
-    local *F;
 
     if ($options{depslist}) {
-	open F, ">$options{depslist}";
+	open my $fh, ">$options{depslist}";
 	foreach (0 .. $#{$urpm->{depslist}}) {
 	    my $pkg = $urpm->{depslist}[$_];
 
-	    printf F ("%s-%s-%s.%s%s %s %s\n", $pkg->fullname,
+	    printf $fh ("%s-%s-%s.%s%s %s %s\n", $pkg->fullname,
 		      ($pkg->epoch ? ':' . $pkg->epoch : ''), $pkg->size || 0, $urpm->{deps}[$_]);
 	}
-	close F;
+	close $fh;
     }
 
     if ($options{provides}) {
-	open F, ">$options{provides}";
+	open my $fh, ">$options{provides}";
 	while (my ($k, $v) = each %{$urpm->{provides}}) {
-	    printf F "%s\n", join '@', $k, map { scalar $urpm->{depslist}[$_]->fullname } keys %{$v || {}};
+	    printf $fh "%s\n", join '@', $k, map { scalar $urpm->{depslist}[$_]->fullname } keys %{$v || {}};
 	}
-	close F;
+	close $fh;
     }
 
     if ($options{compss}) {
 	my %p;
 
-	open F, ">$options{compss}";
+	open my $fh, ">$options{compss}";
 	foreach (@{$urpm->{depslist}}) {
 	    $_->group or next;
 	    push @{$p{$_->group} ||= []}, $_->name;
 	}
 	foreach (sort keys %p) {
-	    print F $_, "\n";
+	    print $fh $_, "\n";
 	    foreach (@{$p{$_}}) {
-		print F "\t", $_, "\n";
+		print $fh "\t", $_, "\n";
 	    }
-	    print F "\n";
+	    print $fh "\n";
 	}
-	close F;
+	close $fh;
     }
 
     1;
-- 
cgit v1.2.1