X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicadmin;h=9eec9b7e0881cceabcc4deeeb6fcfe5ff0c866d4;hb=3e6fb1021178baa133c85f35c7ed89a9ae91bca9;hp=e87374546d5e622e865690d9d62cc529a289befc;hpb=a87eb97149a21ef44292cee9f4e006ebc7284155;p=dbsrgits%2FDBIx-Class.git

diff --git a/script/dbicadmin b/script/dbicadmin
index e873745..9eec9b7 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -70,7 +70,7 @@ if ($op eq 'insert') {
     print ''.ref($resultset).' ID: '.join(',',$obj->id())."\n";
 }
 elsif ($op eq 'update') {
-    $resultset = $resultset->search( $where );
+    $resultset = $resultset->search( ($where||{}) );
     my $count = $resultset->count();
     print "This action will modify $count ".ref($resultset)." records.\n" if (!$quiet);
     if ( $force || confirm() ) {
@@ -79,7 +79,7 @@ elsif ($op eq 'update') {
 }
 elsif ($op eq 'delete') {
     die('Do not use the set option with the delete op') if ($set);
-    $resultset = $resultset->search( $where, $attrs );
+    $resultset = $resultset->search( ($where||{}), ($attrs||()) );
     my $count = $resultset->count();
     print "This action will delete $count ".ref($resultset)." records.\n" if (!$quiet);
     if ( $force || confirm() ) {
@@ -91,7 +91,7 @@ elsif ($op eq 'select') {
     my $csv = $csv_class->new({
         sep_char => ( $format eq 'tsv' ? "\t" : ',' ),
     });
-    $resultset = $resultset->search( $where, $attrs );
+    $resultset = $resultset->search( ($where||{}), ($attrs||()) );
     my @columns = $resultset->result_source->columns();
     $csv->combine( @columns );
     print $csv->string()."\n";