X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F19quotes.t;h=9efad9ba728be426fcc3ba1637c6e7de68993a63;hb=5db49b9aee9a586a76b37fd950bb9bc22bd5e985;hp=be18f2d767bcedc70468aff4a8d3d4af80448940;hpb=d20754315045a6dfdfd8928c1f63c0a49e1a0d0d;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/19quotes.t b/t/19quotes.t
index be18f2d..9efad9b 100644
--- a/t/19quotes.t
+++ b/t/19quotes.t
@@ -28,7 +28,7 @@ cmp_ok( $rs->count, '==', 1, "join with fields quoted");
 $rs = DBICTest::CD->search({},
             { 'order_by' => 'year DESC'});
 {
-       my $warnings;
+       my $warnings = '';
        local $SIG{__WARN__} = sub { $warnings .= $_[0] };
        my $first = eval{ $rs->first() };
        ok( $warnings =~ /ORDER BY terms/, "Problem with ORDER BY quotes" );
@@ -38,7 +38,7 @@ my $order = 'year DESC';
 $rs = DBICTest::CD->search({},
             { 'order_by' => \$order });
 {
-       my $warnings;
+       my $warnings = '';
        local $SIG{__WARN__} = sub { $warnings .= $_[0] };
        my $first = $rs->first();
        ok( $warnings !~ /ORDER BY terms/,