I wrote a module that makes HTML::Form work for file inputs. Can any one see any problems before I submit it to GAAS (The maintainer of this modual.).

# put this in line #15
# I need to registar the new class.
file=>"FileInput",


# somewhere else
package HTML::Form::FileInput;
@HTML::Form::FileInput::ISA=qw(HTML::Form::Input);
sub value 
{
    my $self=shift;
    if(@_)
    {
       my @temp=($_[0]);
       return $self::SUPER::value(\@temp);
    }
    else
    {  return $self::SUPER::value(@_); }
   

}
[download]