=head1 REQUIRES
-perl5.004, Pod::InputObjects, Exporter, FileHandle, Carp
+perl5.004, Pod::InputObjects, Exporter, Carp
=head1 EXPORTS
#use diagnostics;
use Pod::InputObjects;
use Carp;
-use FileHandle;
use Exporter;
@ISA = qw(Exporter);
pop @seq_stack;
my $errmsg = "** Unterminated $cmd<...> at $file line $line\n";
(ref $errorsub) and &{$errorsub}($errmsg)
- or (defined $errmsg) and $self->$errorsub($errmsg)
+ or (defined $errorsub) and $self->$errorsub($errmsg)
or warn($errmsg);
$seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq) : $seq);
$seq = $seq_stack[-1];
my $self = shift;
my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
my ($infile, $outfile) = @_;
- my ($in_fh, $out_fh) = (undef, undef);
+ my ($in_fh, $out_fh);
my ($close_input, $close_output) = (0, 0);
local *myData = $self;
local $_;
else {
## We have a filename, open it for reading
$myData{_INFILE} = $infile;
- $in_fh = FileHandle->new("< $infile") or
+ open($in_fh, "< $infile") or
croak "Can't open $infile for reading: $!\n";
$close_input = 1;
}
else {
## We have a filename, open it for writing
$myData{_OUTFILE} = $outfile;
- $out_fh = FileHandle->new("> $outfile") or
+ open($out_fh, "> $outfile") or
croak "Can't open $outfile for writing: $!\n";
$close_output = 1;
}