Browse files

cosmetics

  • Loading branch information...
1 parent 2f83102 commit 04dea47dc86c2cdb310f7ba190c44bd3e893eee8 @tsee tsee committed Jul 13, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 lib/ZeroMQ.pm
View
5 lib/ZeroMQ.pm
@@ -57,14 +57,15 @@ sub AUTOLOAD {
our $AUTOLOAD;
($constname = $AUTOLOAD) =~ s/.*:://;
- croak "&ZeroMQ::constant not defined" if $constname eq 'constant';
+ croak("&ZeroMQ::constant not defined")
+ if $constname eq 'constant';
my ($error, $val) = constant($constname);
if ($error) {
if ($error =~ /is not a valid/) {
$AutoLoader::AUTOLOAD = $AUTOLOAD;
goto &AutoLoader::AUTOLOAD;
} else {
- croak $error;
+ croak($error);
}
}
{

0 comments on commit 04dea47

Please sign in to comment.