From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 24 Jan 2006 20:28:25 +0000 (+0000)
Subject: Tweaked UUIDColumns
X-Git-Tag: v0.05005~117^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b7992e1c5b0281d1efe07186372d6d214ab3c42;p=dbsrgits%2FDBIx-Class.git

Tweaked UUIDColumns
---

diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm
index 08968da..2d5baec 100644
--- a/lib/DBIx/Class/UUIDColumns.pm
+++ b/lib/DBIx/Class/UUIDColumns.pm
@@ -40,12 +40,12 @@ sub uuid_columns {
 }
 
 sub insert {
-    my ($self) = @_;
+    my $self = shift;
     for my $column (@{$self->uuid_auto_columns}) {
 	$self->store_column( $column, $self->get_uuid )
 	    unless defined $self->get_column( $column );
     }
-    $self->next::method;
+    $self->next::method(@_);
 }
 
 sub get_uuid {
diff --git a/t/basicrels/19uuid.t b/t/basicrels/19uuid.t
new file mode 100644
index 0000000..ec8222a
--- /dev/null
+++ b/t/basicrels/19uuid.t
@@ -0,0 +1,7 @@
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+use DBICTest::BasicRels;
+
+require "t/run/19uuid.tl";
+run_tests(DBICTest->schema);