[Bast-commits] r4923 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class

[purge at dev.catalyst.perl.org]

Author: purge
Date: 2008-10-16 14:41:18 +0100 (Thu, 16 Oct 2008)
New Revision: 4923

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
Log:
patch ->delete to die if args

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2008-10-16 10:41:42 UTC (rev 4922)
+++ DBIx-Class/0.08/trunk/Changes	2008-10-16 13:41:18 UTC (rev 4923)
@@ -1,5 +1,5 @@
 Revision history for DBIx::Class
-
+				- delete throws exception if passed arguments to prevent drunken mishaps. (purge)
         - Fix storage to copy scalar conds before regexping to avoid
           trying to modify a constant in odd edge cases
         - Related resultsets on uninserted objects are now empty

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2008-10-16 10:41:42 UTC (rev 4922)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2008-10-16 13:41:18 UTC (rev 4923)
@@ -1297,7 +1297,8 @@
 
 sub delete {
   my ($self) = @_;
-
+  $self->throw_exception("Delete should not be passed any arguments")
+    if $_[1];
   my $cond = $self->_cond_for_update_delete;
 
   $self->result_source->storage->delete($self->result_source, $cond);