exception file now only created when needed

diff --git a/marc-cleanup b/marc-cleanup
index 01ea115..dd1ac74 100755 (executable)
--- 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});