From: Ben Ostrowsky <ben@esilibrary.com>
Date: Fri, 20 May 2011 19:52:18 +0000 (+0000)
Subject: Eliminating one line of Perl 5.10 dependency
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=7d8c1677bb803abe29986729184039b4a3379374;hp=e6af658f3a966c87311419848b9281c92b3b1bf0

Eliminating one line of Perl 5.10 dependency
---

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'};