From fc482ff4995795df412491cc5adb248b7397fcd6 Mon Sep 17 00:00:00 2001
From: Grant McLean <grant@mclean.net.nz>
Date: Fri, 21 Sep 2012 21:22:27 +1200
Subject: [PATCH] fix a couple of warnings from debug code

---
 bin/bcvi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/bcvi b/bin/bcvi
index 134444d..32d8110 100755
--- a/bin/bcvi
+++ b/bin/bcvi
@@ -1179,7 +1179,7 @@ sub dispatch_request {
 
     $self->send_response(100);
     my $req = $self->collect_headers();
-    $self->DEBUG("Calling host: " . $self->calling_host());
+    $self->DEBUG("Calling host: " . $self->calling_host) if $self->calling_host;
     $self->validate_auth_key($req->{auth_key})
         or $self->exit_response(900);
     $self->DEBUG("Received command: $req->{command}");
@@ -1196,7 +1196,7 @@ sub validate_auth_key {
 
     return 1 if $key && $key eq $self->auth_key;
     my $alias = $self->calling_host();
-    $self->DEBUG("Invalid Auth-Key in request from $alias");
+    $self->DEBUG("Invalid Auth-Key in request from $alias") if $key;
     return;
 }