The temp file name now preserves the uploaded file's suffix.

[catagits/HTTP-Body.git] / t / lib / PAML.pm

diff --git a/t/lib/PAML.pm b/t/lib/PAML.pm
index f24ba5d..8c3df3d 100644 (file)
--- a/t/lib/PAML.pm
+++ b/t/lib/PAML.pm
@@ -50,7 +50,7 @@ sub LoadFile ($) {
     my $data = do {
 
         my $io = IO::File->new($path, '<')
-          || corak(qq[Couldn't open path '$path' in read mode: $!]);
+          || croak(qq[Couldn't open path '$path' in read mode: $!]);
 
         $io->binmode
           || croak(qq[Couldn't binmode filehandle: $!]);