diff options
Diffstat (limited to 'cpan/autodie/t/backcompat.t')
-rw-r--r-- | cpan/autodie/t/backcompat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/autodie/t/backcompat.t b/cpan/autodie/t/backcompat.t index acb81245b8..174d6da9b0 100644 --- a/cpan/autodie/t/backcompat.t +++ b/cpan/autodie/t/backcompat.t @@ -8,7 +8,7 @@ eval { open(my $fh, '<', NO_SUCH_FILE); }; -my $old_msg = qr{Can't open\(GLOB\(0x[0-9a-f]+\), <, xyzzy_this_file_is_not_here\): .* at \(eval \d+\)(?:\[.*?\])? line \d+\s+main::__ANON__\('GLOB\(0x[0-9a-f]+\)',\s*'<',\s*'xyzzy_this_file_is_not_here'\) called at \S+ line \d+\s+eval \Q{...}\E called at \S+ line \d+}; +my $old_msg = qr{Can't open\(GLOB\(0x[0-9a-f]+\), <, xyzzy_this_file_is_not_here\): .* at \(eval \d+\)(?:\[.*?\])? line \d+\.\s+main::__ANON__\('GLOB\(0x[0-9a-f]+\)',\s*'<',\s*'xyzzy_this_file_is_not_here'\) called at \S+ line \d+\s+eval \Q{...}\E called at \S+ line \d+}; like($@,$old_msg,"Backwards compat ugly messages"); is(ref($@),"", "Exception is a string, not an object"); |