mirror of
https://git.freebsd.org/ports.git
synced 2025-06-06 21:30:31 -04:00
24 lines
865 B
Perl
24 lines
865 B
Perl
--- RecordParser.pm~ Tue Dec 16 21:43:05 2003
|
|
+++ RecordParser.pm Thu May 6 11:45:45 2004
|
|
@@ -523,8 +523,8 @@
|
|
|
|
if ( !defined $self->{'fh'} && $self->{'filename'} ) {
|
|
my $file = $self->{'filename'};
|
|
- open my $fh, "<$file" or croak("Cannot read '$file': $!");
|
|
- $self->{'fh'} = $fh;
|
|
+ open FH, "<$file" or croak("Cannot read '$file': $!");
|
|
+ $self->{'fh'} = \*FH;
|
|
}
|
|
|
|
return $self->{'fh'};
|
|
@@ -727,8 +727,8 @@
|
|
croak( "Cannot use directory '$filename' as input source" );
|
|
}
|
|
elsif ( -f _ && -r _ ) {
|
|
- if ( my $fh = $self->fh ) {
|
|
- close $fh or croak(
|
|
+ if ( $self->fh ) {
|
|
+ close $self->fh or croak(
|
|
"Can't close '", $self->{'filename'}, "': $!\n"
|
|
);
|
|
$self->{'fh'} = undef;
|