Minor fix to avoid some potential warnings.

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@1921 d4fa192b-c00b-0410-8231-f00ffab90ce4

diff --git a/varnish-tools/regress/lib/Varnish/Test/Client.pm b/varnish-tools/regress/lib/Varnish/Test/Client.pm
index 217c8ae5e74eb2ce6a9176edfe889646e575dac0..0245364737150e8f3c538adc4f87bc226102acf2 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Client.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Client.pm
@@ -107,7 +107,7 @@ sub shutdown($) {
     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));

diff --git a/varnish-tools/regress/lib/Varnish/Test/Server.pm b/varnish-tools/regress/lib/Varnish/Test/Server.pm
index 787478875367798b40b212656d83a12003d0444e..a206468e5e4322fa2e564e4255bf12eb1455db8d 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Server.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Server.pm
@@ -147,7 +147,7 @@ sub shutdown($) {
 
     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));