Use of uninitialized value in string at ... ??

[Michael Gale]

Hello,

   I got the following function online but and receiving the error and 
do not know why ?
Use of uninitialized value in string at ./sat-main.pl line 211, <STDIN> 
line 1

Here is the code:

my $input;

$input = &user_func("Enter command ");

sub user_func {
   my $user_input;
   my ($promptString,$defaultValue) = @_;

   if ($defaultValue) {
       print $promptString, "[", $defaultValue, "]: ";
   } else {
       print $promptString, ": ";
   }

   $| = 1;               # force a flush after our print
   $user_input = <STDIN> ;   # get the input from STDIN (presumably the 
keyboard)

   chomp ($user_input);
 
   if ("$defaultValue") { ## Line 211 ??
       return $user_input ? $user_input : $defaultValue;    # return $_ 
if it has a value
   } else {
       return $user_input;
   }
} ## End of prompt_user

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>