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 /ext/Hash-Util | |
| 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 'ext/Hash-Util')
| -rw-r--r-- | ext/Hash-Util/t/Util.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Hash-Util/t/Util.t b/ext/Hash-Util/t/Util.t index a7cd946786..74d823db05 100644 --- a/ext/Hash-Util/t/Util.t +++ b/ext/Hash-Util/t/Util.t @@ -155,7 +155,7 @@ is( $hash{locked}, 42, 'unlock_value' ); my %hash = (foo => 42, bar => undef); eval { lock_keys(%hash, qw(foo baz)); }; is( $@, sprintf("Hash has key 'bar' which is not in the new key ". - "set at %s line %d\n", __FILE__, __LINE__ - 2), + "set at %s line %d.\n", __FILE__, __LINE__ - 2), 'carp test' ); } |