| Subject: | Undocumented names length limit |
This module foesn't work with
- 'name' param with length > 8
- 'file' param with length > 18
-------------------------------
my $tcm = Test::CGI::Multipart->new;
my $name = 'namelen8';
$tcm->upload_file(
name => $name,
file => 'name.len________18',
value => q[1 2 3 4],
type => 'text/plain'
);
$tcm->upload_file(
name => $name,
file => 'name.len_________19', # <-- this file is missing
value => q[1 2 3 4],
type => 'text/plain'
);
$name = 'name.len9';
$tcm->upload_file(
name => $name,
file => 'name.len________18',
value => q[1 2 3 4],
type => 'text/plain'
);
my $cgi = $tcm->create_cgi(cgi => 'CGI');
warn Data::Dumper->Dump( [ [ $cgi->param ] ], ['$cgi->param'] );
# $cgi->param = [
# 'namelen8' <--- !!!! NO param 'name.len9'
# ];
warn Data::Dumper->Dump( [ [ $cgi->upload('namelen8') ] ], ['$cgi->upload(namelen8)'] );
# $cgi->upload(namelen8) = [
# bless( \*{'Fh::fh00001name.len________18'}, 'Fh' ) <--- !!! NO file 'name.len_________19'
# ];
--------------------------------