diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-10-19 12:34:20 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-10-19 12:34:20 +0200 |
commit | 228f83bf2f4cc0f605478d266ed3a2dd48cb7041 (patch) | |
tree | 3f42bb4f81cf41f6bec31649bcbd05ccc2b74a49 /ext/Fcntl/Fcntl.pm | |
parent | 80a649c810fab9a1510e35c012adc454dd4a0a4e (diff) | |
download | perl-228f83bf2f4cc0f605478d266ed3a2dd48cb7041.tar.gz |
Make Fcntl::AUTOLOAD's error messages consistent with croak() using modules.
Fcntl avoids using Carp::croak(), but its code was adding a full stop at the
end of all error messages. Other modules are using croak(), which has no full
stop between the line number and the newline.
Add a test for the error messages from Fcntl::AUTOLOAD.
Diffstat (limited to 'ext/Fcntl/Fcntl.pm')
-rw-r--r-- | ext/Fcntl/Fcntl.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index 4aede8c222..970735cd4e 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -189,7 +189,7 @@ sub AUTOLOAD { my ($error, $val) = constant($constname); if ($error) { my (undef,$file,$line) = caller; - die "$error at $file line $line.\n"; + die "$error at $file line $line\n"; } no strict 'refs'; *$AUTOLOAD = sub { $val }; |