From dbf41a12e285b18d02d85b9fe38ec7f65d7451ee Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 1 Dec 2008 15:38:25 +0000
Subject: [PATCH] exception file now only created when needed

---
 marc-cleanup |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 01ea115..dd1ac74 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -17,9 +17,9 @@ initialize($conf);
 populate_trash() if ($conf->{trashfile});
 
 # set up files, since everything appears to be in order
+my $EXMARC = '';
 open MARC, '<:utf8', (shift || 'incoming.marc.xml');
 open my $NUMARC, '>:utf8', $conf->{output};
-open my $EXMARC, '>:utf8', $conf->{exception};
 open my $OLD2NEW, '>', 'old2new.incoming.map'
   if ($conf->{'renumber-from'} and $conf->{'original-subfield'});
 print $NUMARC '<?xml version="1.0" encoding="UTF-8"?>',"\n";
@@ -271,6 +271,12 @@ sub write_record {
     my ($FH) = @_;
     my $trash = $conf->{trash};
 
+    # uninitialized $EXMARC
+    if ($FH eq '') {
+        open $EXMARC, '>:utf8', $conf->{exception};
+        $FH = $EXMARC;
+    }
+
     $conf->{rocount}++ if ($FH eq $NUMARC);
     print $FH '<!-- ', $recmeta{explanation}, " -->\n"
       if(defined $recmeta{explanation});
-- 
1.7.2.5