[Bast-commits] r3914 - DBIx-Class/0.08/trunk/script

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-01-03 13:53:00 +0000 (Thu, 03 Jan 2008)
New Revision: 3914

Modified:
   DBIx-Class/0.08/trunk/script/dbicadmin
Log:
dbicadmin printed even when quiet

Modified: DBIx-Class/0.08/trunk/script/dbicadmin
===================================================================
--- DBIx-Class/0.08/trunk/script/dbicadmin	2008-01-03 13:36:07 UTC (rev 3913)
+++ DBIx-Class/0.08/trunk/script/dbicadmin	2008-01-03 13:53:00 UTC (rev 3914)
@@ -67,7 +67,7 @@
     die('Do not use the where option with the insert op') if ($where);
     die('Do not use the attrs option with the insert op') if ($attrs);
     my $obj = $resultset->create( $set );
-    print ''.ref($resultset).' ID: '.join(',',$obj->id())."\n";
+    print ''.ref($resultset).' ID: '.join(',',$obj->id())."\n" if (!$quiet);
 }
 elsif ($op eq 'update') {
     $resultset = $resultset->search( ($where||{}) );