projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
669d5a0
)
oops, diag print left in
author
Shawn Boyette
<sboyette@esilibrary.com>
Wed, 24 Sep 2008 19:03:48 +0000 (19:03 +0000)
committer
Shawn Boyette
<sboyette@esilibrary.com>
Wed, 24 Sep 2008 19:03:48 +0000 (19:03 +0000)
marc-cleanup
patch
|
blob
|
history
diff --git
a/marc-cleanup
b/marc-cleanup
index
0f2b5f8
..
83e7ee1
100755
(executable)
--- a/
marc-cleanup
+++ b/
marc-cleanup
@@
-192,7
+192,6
@@
sub substitute {
$char = "\\" . $char if ($char =~ /\W/);
$from = join('', $from, $char);
}
- print $OUT "\n$from\n";
$record[-1] =~ s/$from/$to/;
$linecontext[3] = $record[-1];
print_linecontext();