From ed7d95de69e05c2cc596be4e7690b292e68ff67e Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Thu, 18 Mar 1999 00:05:50 +0000
Subject: Net::TFTP - Fix typo in CLOSE()

---
 Net/TFTP.pm | 4 ++--
 1 file 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;
         	}
 
-- 
cgit v1.2.3-24-ge0c7