X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter.pl.in;fp=helm%2Fhttp_getter%2Fhttp_getter.pl.in;h=cf2052a0236c345db549da9762485735c411657c;hb=e8f0da12ea20a97083be016fc4e2a09688f786c8;hp=e1546733e4c71aaa452e0a172d110a9bc0b1c377;hpb=e4ea08104e12e2d9e546f37e2d4fbb4febe75d29;p=helm.git

diff --git a/helm/http_getter/http_getter.pl.in b/helm/http_getter/http_getter.pl.in
index e1546733e..cf2052a02 100755
--- a/helm/http_getter/http_getter.pl.in
+++ b/helm/http_getter/http_getter.pl.in
@@ -79,7 +79,8 @@ use URI::Escape;
 #CSC: ==> non e' robusto
 #CSC: altra roba da sistemare segnata con CSC
 
-my $d = new HTTP::Daemon LocalPort => 8081;
+my $d = new HTTP::Daemon LocalPort => 8081
+ or die "Error: port 8081 not available.";
 my $myownurl = $d->url;
 
 # Let's patch the returned URL