summaryrefslogtreecommitdiff
path: root/ext/Fcntl/Fcntl.pm
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-10-19 12:34:20 +0200
committerNicholas Clark <nick@ccl4.org>2010-10-19 12:34:20 +0200
commit228f83bf2f4cc0f605478d266ed3a2dd48cb7041 (patch)
tree3f42bb4f81cf41f6bec31649bcbd05ccc2b74a49 /ext/Fcntl/Fcntl.pm
parent80a649c810fab9a1510e35c012adc454dd4a0a4e (diff)
downloadperl-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.pm2
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 };