Lp 1943634: Fix MARC Stream Importer Temp File Creation

Use fileparse on $0 in marc_stream_importer.pl to get the program's
basename and use that instead of $0 to generate the temp file's name.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Jason Boyer <JBoyer@equinoxOLI.org>

diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl.in b/Open-ILS/src/support-scripts/marc_stream_importer.pl.in
index 4f2a1df..72ba08e 100755 (executable)
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl.in
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl.in
@@ -443,7 +443,8 @@ sub process_request {
     set_tempdir();
 
     # copy data to a temporary file so vandelay can scoop it up
-    my ($handle, $tempfile) = tempfile("$0_XXXX", DIR => $tempdir) 
+    my $base = fileparse($0, qw(.pl));
+    my ($handle, $tempfile) = tempfile("${base}_XXXX", DIR => $tempdir)
         or die "Cannot create tempfile in $tempdir : $!";
 
     print $handle $data or die "Error writing to tempfile $tempfile : $!\n";