Index: trunk/PS-IPP-MetaDB/scripts/mdb-find-new
===================================================================
--- trunk/PS-IPP-MetaDB/scripts/mdb-find-new	(revision 5198)
+++ trunk/PS-IPP-MetaDB/scripts/mdb-find-new	(revision 5212)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-find-new,v 1.3 2005-09-30 01:22:53 jhoblitt Exp $
+# $Id: mdb-find-new,v 1.4 2005-09-30 21:46:55 jhoblitt Exp $
 
 use strict;
@@ -34,5 +34,5 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
+pod2usage( -msg => "Required options: --dsn --user", -exitval => 3 )
     unless defined $dsn and defined $dbuser;
 
@@ -57,5 +57,5 @@
 my $csv = Text::CSV->new();
 
-print "# ", join(", ", @fields), "\n";
+print "# ", join(", ", @fields), "\n" if scalar @rows;
 foreach my $hashref (@rows) {
     $csv->combine(@$hashref{@fields});