diff options
| author | Graham Barr <gbarr@pobox.com> | 1999-03-18 00:05:50 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1999-03-18 00:05:50 +0000 |
| commit | ed7d95de69e05c2cc596be4e7690b292e68ff67e (patch) | |
| tree | 981c0f3f2c90c67517a33cc91b2a51c069d00299 | |
| parent | 90f178622a6bf5e9362f996716ad1a551a8338c3 (diff) | |
| download | perl-libnet-ed7d95de69e05c2cc596be4e7690b292e68ff67e.tar.gz | |
Net::TFTP
- Fix typo in CLOSE()
| -rw-r--r-- | Net/TFTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Net/TFTP.pm b/Net/TFTP.pm index c00715a..6315b95 100644 --- a/Net/TFTP.pm +++ b/Net/TFTP.pm @@ -10,7 +10,7 @@ use strict; use vars qw($VERSION); use IO::File; -$VERSION = "0.10"; +$VERSION = "0.11"; sub RRQ () { 01 } # read request sub WRQ () { 02 } # write request @@ -406,7 +406,7 @@ sub CLOSE { else { # Clear the buffer unless(exists $self->{'error'}) { - while(length($self->{'obuf'} >= $self->{'blksize'})) { + while(length($self->{'obuf'}) >= $self->{'blksize'}) { last if _write($self) < 0; } |