mirror of
https://git.freebsd.org/ports.git
synced 2025-06-16 02:00:30 -04:00
36c44ea8b9
- Now depends on the new port textproc/p5-Text-TabularDisplay - Make PREFIX-clean under perl 5.005_03. PR: 66807 Submitted by: maintainer
34 lines
1.1 KiB
Perl
34 lines
1.1 KiB
Perl
--- t/02-filename-fh.t.orig Mon May 17 22:16:08 2004
|
|
+++ t/02-filename-fh.t Mon May 17 22:19:17 2004
|
|
@@ -40,15 +40,15 @@
|
|
{
|
|
my $p = Text::RecordParser->new;
|
|
|
|
- open my $fh, "<$Bin/data/simpsons.cvs";
|
|
- is ( ref $p->fh( $fh ), 'GLOB', 'fh is a filehandle' );
|
|
+ open FH, "<$Bin/data/simpsons.cvs";
|
|
+ is ( ref $p->fh( \*FH ), 'GLOB', 'fh is a filehandle' );
|
|
|
|
#
|
|
# Cause an error by closing the existing fh.
|
|
#
|
|
- close $fh;
|
|
- open my $fh2, "<$Bin/data/simpsons.tab";
|
|
- eval { $p->fh( $fh2 ) };
|
|
+ close FH;
|
|
+ open FH2, "<$Bin/data/simpsons.tab";
|
|
+ eval { $p->fh( \*FH2 ) };
|
|
my $err = $@;
|
|
like ( $err, qr/can't close existing/i, 'fh catches bad close' );
|
|
|
|
@@ -105,8 +105,8 @@
|
|
is( $rec->{'instrument'}, 'drums', 'instrument = "drums"' );
|
|
|
|
my $filename = "$Bin/data/simpsons.csv";
|
|
- open my $fh, "<$filename" or die "Can't read '$filename': $!";
|
|
- is ( $p->data( $fh ), 1, 'data accepts a filehandle' );
|
|
+ open FH, "<$filename" or die "Can't read '$filename': $!";
|
|
+ is ( $p->data( \*FH ), 1, 'data accepts a filehandle' );
|
|
is ( UNIVERSAL::isa( $p->fh, 'GLOB' ), 1, 'fh is a GLOB' );
|
|
}
|
|
|