the cgi_error subroutine contains:
my ($error) = shift;
$error && print "Error Message : $_[0]\n";
However, since shift is being used, the error message is no longer at $_[0]! In any event tis a backwards way of doing this considering there is only one variable entering the subroutine. I propose:
my ($error) = @_;
$error && print "Error Message : $error\n";
which SHOWS the error message, as before the error message was never shown.
-Cheers,
RJW
my ($error) = shift;
$error && print "Error Message : $_[0]\n";
However, since shift is being used, the error message is no longer at $_[0]! In any event tis a backwards way of doing this considering there is only one variable entering the subroutine. I propose:
my ($error) = @_;
$error && print "Error Message : $error\n";
which SHOWS the error message, as before the error message was never shown.
-Cheers,
RJW