13 my $hidden_form_in = qq{<TEXTAREA NAME="foo">blah</TEXTAREA>};
15 my %fdat = (foo => 'bar>bar');
17 my $fif = new CGI::Ex;
18 my $output = $fif->fill(scalarref => \$hidden_form_in,
20 if ($output eq '<TEXTAREA NAME="foo">bar>bar</TEXTAREA>'){
23 print "Got unexpected out for $hidden_form_in:\n$output\n";
32 $output = $fif->fill(scalarref => \$hidden_form_in,
34 if ($output eq '<TEXTAREA NAME="foo"></TEXTAREA>'){
37 print "Got unexpected out for $hidden_form_in:\n$output\n";