eliminate warning
authorivan <ivan>
Mon, 29 Sep 2003 06:22:18 +0000 (06:22 +0000)
committerivan <ivan>
Mon, 29 Sep 2003 06:22:18 +0000 (06:22 +0000)
fs_signup/FS-SignupClient/cgi/signup.cgi

index 57b93d4..78f31aa 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: signup.cgi,v 1.43 2003-07-04 03:21:42 ivan Exp $
+# $Id: signup.cgi,v 1.44 2003-09-29 06:22:18 ivan Exp $
 
 use strict;
 use vars qw( @payby $cgi $locales $packages
@@ -524,7 +524,7 @@ sub regionselector {
   my ( $selected_county, $selected_state, $selected_country,
        $prefix, $onchange ) = @_;
 
-  my $prefix = '' unless defined $prefix;
+  $prefix = '' unless defined $prefix;
 
   my $countyflag = 0;