diff options
author | Zefram <zefram@fysh.org> | 2012-02-02 16:07:10 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2012-02-02 16:07:10 +0000 |
commit | 879b0cab8575cdc155c45c42eb82075648761936 (patch) | |
tree | 81bb2870c1a54c3d91fc83ad2107a89ec6d8f4dd /cpan | |
parent | 62e90759156bee3f2bcbf1ac6fd055aeab81b9e4 (diff) | |
download | perl-879b0cab8575cdc155c45c42eb82075648761936.tar.gz |
make Carp messages match die properly
Add dot to end of message from Carp, to match the formatting from
CORE::die. The stack trace, coming after the message, is unchanged.
Diffstat (limited to 'cpan')
-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"); |