r1921 - trunk/varnish-tools/regress/lib/Varnish/Test
knutroy at projects.linpro.no
knutroy at projects.linpro.no
Fri Aug 24 15:57:58 CEST 2007
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));
More information about the varnish-commit
mailing list