X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F72pg.t;h=f2df2d59bb2db56e9980bca4e8619c8c49b6ea52;hb=a0f289c8c9da5488973b1993c5e81be1705dab3d;hp=27cb1b6771a670c3b6bdc2948ba1d44a37546666;hpb=d093d3ebc026f144c1c30c4729981edf24a1adac;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/72pg.t b/t/72pg.t index 27cb1b6..f2df2d5 100644 --- a/t/72pg.t +++ b/t/72pg.t @@ -19,12 +19,11 @@ use DBICTest; __PACKAGE__->column_info_from_storage(1); __PACKAGE__->set_primary_key('id'); -sub store_column { + sub store_column { my ($self, $name, $value) = @_; $value = '#'.$value if($name eq "storecolumn"); $self->maybe::next::method($name, $value); -} - + } } { @@ -278,4 +277,3 @@ END { $dbh->do("DROP SCHEMA testschema;"); } } -