TreeLike test reverted to what it used to look like

[dbsrgits/DBIx-Class.git] / t / 19quotes.t

diff --git a/t/19quotes.t b/t/19quotes.t
index be18f2d..9efad9b 100644 (file)
--- 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/,