From: Eric Bollengier <eric@eb.homelinux.org>
Date: Wed, 21 Jul 2010 08:46:54 +0000 (+0200)
Subject: regress: add a start message in regress-win32.pl
X-Git-Tag: Release-7.0.0~1638
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=940647db14414f09f64bff8bdacd11aef415f537;p=bacula%2Fbacula

regress: add a start message in regress-win32.pl
---

diff --git a/regress/scripts/regress-win32.pl b/regress/scripts/regress-win32.pl
index 6ecdc7c21d..e2e8fa5d7c 100644
--- a/regress/scripts/regress-win32.pl
+++ b/regress/scripts/regress-win32.pl
@@ -437,10 +437,11 @@ sub handle_client
 
 my $d = HTTP::Daemon->new ( LocalPort =>  8091,
                             ReuseAddr => 1) 
-    || die "E : Can't bind $!" ;
+    || die "Error: Can't bind $!" ;
 
 my $olddir = Cwd::cwd();
 while (1) {
+    print "Starting daemon...\n";
     my $c = $d->accept ;
     my $ip = $c->peerhost;
     if (!$ip) {