Eliminate "Use of uninitialized value in pattern match" warning.

bricoleurs · Jun 21, 2006 · 070f5ce · 070f5ce
1 parent 4084867
commit 070f5ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/Bric/SOAP/Auth/DevTest.pm b/t/Bric/SOAP/Auth/DevTest.pm
@@ -15,7 +15,7 @@ use HTTP::Cookies;
 
 __PACKAGE__->SKIP_CLASS("BRICOLAGE_SERVER environment variable isn't set")
     unless exists $ENV{BRICOLAGE_SERVER} || __PACKAGE__->SKIP_CLASS;
-my $server = $ENV{BRICOLAGE_SERVER};
+my $server = $ENV{BRICOLAGE_SERVER} || '';
 $server = "http://$server" unless $server =~ m!^https?://!;
 $server =~ s|/$||;