r1921 - trunk/varnish-tools/regress/lib/Varnish/Test

[knutroy at projects.linpro.no]

Author: knutroy
Date: 2007-08-24 15:57:58 +0200 (Fri, 24 Aug 2007)
New Revision: 1921

Modified:
   trunk/varnish-tools/regress/lib/Varnish/Test/Client.pm
   trunk/varnish-tools/regress/lib/Varnish/Test/Server.pm
Log:
Minor fix to avoid some potential warnings.


Modified: trunk/varnish-tools/regress/lib/Varnish/Test/Client.pm
===================================================================
--- trunk/varnish-tools/regress/lib/Varnish/Test/Client.pm	2007-08-24 13:45:11 UTC (rev 1920)
+++ trunk/varnish-tools/regress/lib/Varnish/Test/Client.pm	2007-08-24 13:57:58 UTC (rev 1921)
@@ -107,7 +107,7 @@
     if (defined($self->{'fh'})) {
 	my $inbuffer = $self->{'mux'}->inbuffer($self->{'fh'});
 
-	if ($inbuffer ne '') {
+	if (defined($inbuffer) and $inbuffer ne '') {
 	    use Data::Dumper;
 
 	    $self->log('Discarding: ' . Dumper(\$inbuffer));

Modified: trunk/varnish-tools/regress/lib/Varnish/Test/Server.pm
===================================================================
--- trunk/varnish-tools/regress/lib/Varnish/Test/Server.pm	2007-08-24 13:45:11 UTC (rev 1920)
+++ trunk/varnish-tools/regress/lib/Varnish/Test/Server.pm	2007-08-24 13:57:58 UTC (rev 1921)
@@ -147,7 +147,7 @@
 
     my $inbuffer = $self->{'mux'}->inbuffer($self->{'fh'});
 
-    if ($inbuffer ne '') {
+    if (defined($inbuffer) and $inbuffer ne '') {
 	use Data::Dumper;
 
 	$self->{'server'}->log('Junk or incomplete request. Discarding: ' . Dumper(\$inbuffer));