From e2c1f11715bc10504373c8c3d636f1402b00a8e6 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Mon, 31 Mar 2008 16:19:53 -0500
Subject: [PATCH] fixed memory leak I introduced

Accidentally introducing a circular reference in a
MARC::Record object does not lead to goodness, particularly
if you export lots and lots of them.

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

diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl
index 609c2bf307..afa4eaac8c 100755
--- a/misc/migration_tools/rebuild_zebra.pl
+++ b/misc/migration_tools/rebuild_zebra.pl
@@ -377,7 +377,8 @@ sub fix_biblio_ids {
     # FIXME - it is essential to ensure that the biblionumber is present,
     #         otherwise, Zebra will choke on the record.  However, this
     #         logic belongs in the relevant C4::Biblio APIs.
-    my ($marc, $biblionumber) = @_;
+    my $marc = shift;
+    my $biblionumber = shift;
     my $biblioitemnumber;
     if (@_) {
         $biblioitemnumber = shift;
-- 
2.39.5