From 7d8c1677bb803abe29986729184039b4a3379374 Mon Sep 17 00:00:00 2001
From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 20 May 2011 19:52:18 +0000
Subject: [PATCH] Eliminating one line of Perl 5.10 dependency

---
 marc_cleanup |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/marc_cleanup b/marc_cleanup
index 04b9760..3b2c2ed 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -603,7 +603,7 @@ sub initialize {
     show_trashhelp() if ($c->{trashhelp});
 
     # defaults
-    my $pfx = $c->{prefix} // "bibs";
+    my $pfx = defined($c->{prefix}) ? $c->{prefix} : "bibs";
     $c->{ricount} = 0;
     $c->{rocount} = 0;
     $c->{'renumber-tag'} = 903 unless defined $c->{'renumber-tag'};
-- 
1.7.2.5