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

diff --git a/regress/scripts/regress-win32.pl b/regress/scripts/regress-win32.pl
index 6ecdc7c21dde0ba4556eee98ee0f7ef24f1d7d88..e2e8fa5d7c1df0e4496a11afa2ef2aad00641818 100644 (file)
--- 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) {