]> git.sur5r.net Git - bacula/bacula/commitdiff
regress: add a start message in regress-win32.pl
authorEric Bollengier <eric@eb.homelinux.org>
Wed, 21 Jul 2010 08:46:54 +0000 (10:46 +0200)
committerEric Bollengier <eric@eb.homelinux.org>
Wed, 4 Aug 2010 09:34:40 +0000 (11:34 +0200)
regress/scripts/regress-win32.pl

index 6ecdc7c21dde0ba4556eee98ee0f7ef24f1d7d88..e2e8fa5d7c1df0e4496a11afa2ef2aad00641818 100644 (file)
@@ -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) {