From 4609608ccc7ba7e956ece71e41a5a03c67e4cae1 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Sat, 22 Dec 2007 21:32:58 -0600
Subject: [PATCH] allow use of older version of File::Temp

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 misc/migration_tools/rebuild_zebra.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl
index 82f6a05c5f..1599b05e1e 100755
--- a/misc/migration_tools/rebuild_zebra.pl
+++ b/misc/migration_tools/rebuild_zebra.pl
@@ -4,7 +4,7 @@ use strict;
 
 use C4::Context;
 use Getopt::Long;
-use File::Temp;
+use File::Temp qw/ tempdir /;
 use File::Path;
 use C4::Biblio;
 use C4::AuthoritiesMarc;
@@ -54,7 +54,7 @@ if (not $biblios and not $authorities) {
 my $use_tempdir = 0;
 unless ($directory) {
     $use_tempdir = 1;
-    $directory = File::Temp->newdir(CLEANUP => ($keep_export ? 0 : 1));
+    $directory = tempdir(CLEANUP => ($keep_export ? 0 : 1));
 } 
 
 
-- 
2.39.5