From a10f88172c407dfcab8d9783ca095a9385adb464 Mon Sep 17 00:00:00 2001
From: Fredric T Parks <fparks@catalystitservices.com>
Date: Wed, 6 Nov 2013 15:36:32 -0800
Subject: [PATCH] LP#1246839: marc_stream_importer.pl no longer crashes with vs
 0.23 of File::Temp

updated marc_stream_importer.pl to use the 0.23 API

Signed-off-by: Fredric T Parks <fparks@catalystitservices.com>
Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 Open-ILS/src/support-scripts/marc_stream_importer.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/support-scripts/marc_stream_importer.pl b/Open-ILS/src/support-scripts/marc_stream_importer.pl
index e0a2aa33ce..d418fb6c2c 100755
--- a/Open-ILS/src/support-scripts/marc_stream_importer.pl
+++ b/Open-ILS/src/support-scripts/marc_stream_importer.pl
@@ -23,7 +23,7 @@ use MARC::File::USMARC;
 
 use Data::Dumper;
 use File::Basename qw/fileparse/;
-use File::Temp;
+use File::Temp qw/tempfile/;
 use Getopt::Long qw(:DEFAULT GetOptionsFromArray);
 use Pod::Usage;
 use Socket;
@@ -342,7 +342,7 @@ sub process_batch_data {
 
     my ($handle, $tempfile);
     if (!$isfile) {
-        ($handle, $tempfile) = File::Temp->tempfile("$0_XXXX", DIR => $tempdir) or die "Cannot write tempfile in $tempdir";
+        ($handle, $tempfile) = tempfile("$0_XXXX", DIR => $tempdir) or die "Cannot write tempfile in $tempdir";
         print $handle $data;
         close $handle;
     } else {
-- 
2.43.2