| Subject: | Errors are not cleared |
Errors not cleared between multiple calls to get/put. Fixed file
attached to ticket.
diff U5 C:/Perl/site/lib/Net/orig/TFTP.pm C:/Perl/site/lib/Net/TFTP.pm
--- C:/Perl/site/lib/Net/orig/TFTP.pm Wed Jul 18 21:32:43 2007
+++ C:/Perl/site/lib/Net/TFTP.pm Fri Oct 17 23:03:57 2008
@@ -116,13 +116,13 @@
}
sub get {
my($self,$remote) = splice(@_,0,2);
my $local = shift if @_ % 2;
- my %arg = ( %$self, @_ );
- delete $self->{'error'};
+ delete $self->{'error'};
+ my %arg = ( %$self, @_ );
my $io = Net::TFTP::IO->new($self,\%arg,RRQ,$remote);
return $io
unless defined($local) && defined($io);
@@ -158,13 +158,13 @@
sub put {
my($self,$remote) = splice(@_,0,2);
my $local;
($local,$remote) = ($remote,shift) if @_ %2;
- my %arg = (%$self,@_);
- delete $self->{'error'};
+ delete $self->{'error'};
+ my %arg = (%$self,@_);
my $file;
if (defined $local) {
$file = $local;
unless(ref($local)) {
| Subject: | TFTP.pm |
Message body is not shown because it is too large.