[sf-perl] Can't figure this one out

nheller at silcon.com nheller at silcon.com
Wed Mar 5 15:46:51 PST 2008

Here's an error that I can't figure out for the life of me.
The code is short; I can't figure out why the compiler thinks $action (on
the marked line) is a bare word.

The actual error message follows the source code.
I would really appreciate any help.

    my ($q, $ins, $action, %p, $p);

    $q = new CGI;
    $action = $q->param('action');
    $action = 'start' unless $action;

    if ($action =~ /start/i) {     <-------- line 511, the offender
        &MainPage($q, \%p);
    elsif ($action =~ /new/i ||
           $action =~ /del/i ||
           $action =~ /edt/i ||
           $action =~ /save/i )

[imiuser at adopt nheller]$ perl -c ad_cases.cgi
Bareword "action" not allowed while "strict subs" in use at ad_cases.cgi
line 511.
ad_cases.cgi had compilation errors.
[imiuser at adopt nheller]$ vi ad_cases.cgi
[imiuser at adopt nheller]$

More information about the SanFrancisco-pm mailing list