From ba94dca0cb72819ae1507defc7b2c50fea226501 Mon Sep 17 00:00:00 2001 From: Fredric T Parks Date: Wed, 6 Nov 2013 15:36:32 -0800 Subject: [PATCH] LP 1246839 marc_stream_importer.pl 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 --- 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 d28850426a..afca7278a2 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; @@ -333,7 +333,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(TEMPLATE => "$0_XXXX", DIR => $tempdir) or die "Cannot write tempfile in $tempdir"; print $handle $data; close $handle; } else { -- 2.11.0