projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
e6af658
)
Eliminating one line of Perl 5.10 dependency
author
Ben Ostrowsky
<ben@esilibrary.com>
Fri, 20 May 2011 19:52:18 +0000 (19:52 +0000)
committer
Galen Charlton
<gmc@esilibrary.com>
Mon, 16 Jul 2012 15:25:39 +0000 (11:25 -0400)
marc_cleanup
patch
|
blob
|
history
diff --git
a/marc_cleanup
b/marc_cleanup
index
04b9760
..
3b2c2ed
100755
(executable)
--- 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'};