X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2Fresultset%2Frowparser_internals.t;fp=t%2Fresultset%2Frowparser_internals.t;h=d1b4f0787d672a658aeb63bf823f5950c921ace3;hp=23771856e20843dabac7988fc98fe3e9c42826aa;hb=9f7d5590318a7f8db25a1a3854494edee9f25a57;hpb=2fdeef656102aed6c01b6af14d0f14ef06673fb3 diff --git a/t/resultset/rowparser_internals.t b/t/resultset/rowparser_internals.t index 2377185..d1b4f07 100644 --- a/t/resultset/rowparser_internals.t +++ b/t/resultset/rowparser_internals.t @@ -765,7 +765,7 @@ sub is_same_src { SKIP: { $expect =~ s/__NBC__/perlstring($DBIx::Class::ResultSource::RowParser::Util::null_branch_class)/ge; - $expect = " { use strict; use warnings FATAL => 'all';\n$expect\n }"; + $expect = " { use strict; use warnings FATAL => 'uninitialized';\n$expect\n }"; my @normalized = map { my $cref = eval "sub { $_ }" or do {