neznama chyba (pro me)

[Jan BERGER]

Zdravim,
kolega napsal skrptik v perlu, a debugoval ho na Linuxu (rh 5.0 2.0.35)
s perlem 5.004. Vsechno se tvarilo OK, ale kdyz chtel skript spoustet na
masine s BSDI (perl stejna verze)
hlasi chybu:
"my" may clash with future reserved word at ./new_ap.cgi line 127.
syntax error in file ./new_ap.cgi at line 127, next 2 tokens "my ("
Execution of ./new_ap.cgi aborted due to compilation errors.

zdrojak:
sub ParseInput {

  my ($i, $loc, $key, $val);

  # Read in text
  if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $in = $ENV{'QUERY_STRING'};
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {
      $in .= getc;
    }
  }

  @in = split(/&/,$in);

  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =~ s/\+/ /g;

    # Convert %XX from hex numbers to alphanumeric
    $in[$i] =~ s/%(..)/pack("c",hex($1))/ge;

    # Split into key and value.
    $loc = index($in[$i],"=");
    $key = substr($in[$i],0,$loc);
    $val = substr($in[$i],$loc+1);
    $in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple
separator
    $in{$key} .= $val;
  }

  return 1;
}


nevite nekdo kde muze by zadrhel? diky
Honza Berger