view release on metacpan or  search on metacpan

ParseFormData.pm  view on Meta::CPAN

230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
        my $fh;
        my $i = 0;
        do {
                $i < 3 or last;
                my $name = tmpnam(); 
                $name = (split("/", $name))[-1];
                $path = join("/", $temp_dir, $name);
                $i++;
        } until($fh = IO::File->new($path, O_RDWR|O_CREAT|O_EXCL));
        defined($fh) or return("Couldn't create temporary file: $path");
        binmode($fh);
        $fh->autoflush(1);
        $data->{values} = [$fh, $path];
        return();
}
 
sub multipart_data {
        my $r = shift;
        my $args = shift;
        my $data = shift;
        my $boundary = shift;