minor bug fix in clark
[Evergreen.git] / Open-ILS / src / reporter / clark-kent.pl
index ac063f9..77bf3b4 100755 (executable)
@@ -332,6 +332,9 @@ sub build_csv {
        my $r = shift;
 
        my $csv = Text::CSV_XS->new({ always_quote => 1, eol => "\015\012" });
+
+       return unless ($csv);
+       
        my $f = new FileHandle (">$file");
 
        $csv->print($f, $r->{sql}->{columns});