summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/TAP/Parser/Source.pm12
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;