12 my $hidden_form_in = qq{<input type="hidden" name="foo">
13 <input type="hidden" name="foo" value="ack">};
15 my %fdat = (foo => 'bar1a');
17 my $fif = new CGI::Ex;
18 my $output = $fif->fill(scalarref => \$hidden_form_in,
20 if ($output =~ m/^<input( (type="hidden"|name="foo"|value="bar1a")){3}>\s*<input( (type="hidden"|name="foo"|value="bar1a")){3}>$/){
23 print "Got unexpected out for hidden form:\n$output\n";