diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm b/Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm index 6eda5db839d..0e2da09f644 100644 --- a/Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm +++ b/Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm @@ -1,26 +1,24 @@ package TAP::Parser::Source; use strict; -use vars qw($VERSION @ISA); +use warnings; -use TAP::Object (); use File::Basename qw( fileparse ); +use base 'TAP::Object'; use constant BLK_SIZE => 512; -@ISA = qw(TAP::Object); - =head1 NAME TAP::Parser::Source - a TAP source & meta data about it =head1 VERSION -Version 3.26 +Version 3.30 =cut -$VERSION = '3.26'; +our $VERSION = '3.30'; =head1 SYNOPSIS @@ -329,7 +327,7 @@ May be called as a class method open my $fh, '<', $file or die "Can't read $file: $!\n"; # Might be a binary file - so read a fixed number of bytes. - my $got = read $fh, my $buf, BLK_SIZE; + my $got = read $fh, my ($buf), BLK_SIZE; defined $got or die "I/O error: $!\n"; return $1 if $buf =~ /(.*)/; return; |