diff options
| author | ivan <ivan> | 2004-05-28 11:21:47 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-05-28 11:21:47 +0000 |
| commit | 32369935cdd8812140cae4708a4588a8282b96b3 (patch) | |
| tree | 2bb7adb05c9bbcaf4f73e3ce17e23641431dad20 | |
| parent | 5718ce3a2db7811be18fd3e4a6d2eae8362a2c3c (diff) | |
better error reporting on unparsable filenames
| -rw-r--r-- | httemplate/misc/upload-batch.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi index cc5346606..da5e41cbc 100644 --- a/httemplate/misc/upload-batch.cgi +++ b/httemplate/misc/upload-batch.cgi @@ -2,7 +2,7 @@ my $fh = $cgi->upload('batch_results'); my $filename = $cgi->param('batch_results'); - $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die; + $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die "unparsable filename: $filename\n"; my $paybatch = $1; my $error = defined($fh) |