[Moose-commits] r7474 - in MooseX-Params-Validate/trunk: . lib/MooseX/Params

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-01 15:48:48 -0800 (Sun, 01 Feb 2009)
New Revision: 7474

Modified:
   MooseX-Params-Validate/trunk/ChangeLog
   MooseX-Params-Validate/trunk/lib/MooseX/Params/Validate.pm
Log:
fix subroutine name for caller

Modified: MooseX-Params-Validate/trunk/ChangeLog
===================================================================
--- MooseX-Params-Validate/trunk/ChangeLog	2009-02-01 23:31:48 UTC (rev 7473)
+++ MooseX-Params-Validate/trunk/ChangeLog	2009-02-01 23:48:48 UTC (rev 7474)
@@ -1,6 +1,10 @@
 Revision history for Perl extension MooseX-Params-Validate
 
-0.08
+0.09 Sun. Feb. 1, 2009
+     - The subroutine name being reported in error messages was
+       screwy.
+
+0.08 Sun. Feb. 1, 2009
     - Renamed validate to validated_hash and validatep to
       validated_list. The old function names are still available under
       the ":deprecated" import tag.

Modified: MooseX-Params-Validate/trunk/lib/MooseX/Params/Validate.pm
===================================================================
--- MooseX-Params-Validate/trunk/lib/MooseX/Params/Validate.pm	2009-02-01 23:31:48 UTC (rev 7473)
+++ MooseX-Params-Validate/trunk/lib/MooseX/Params/Validate.pm	2009-02-01 23:48:48 UTC (rev 7474)
@@ -18,7 +18,7 @@
     },
 };
 
-our $VERSION   = '0.08';
+our $VERSION   = '0.09';
 our $AUTHORITY = 'cpan:STEVAN';
 
 my %CACHED_SPECS;
@@ -231,7 +231,7 @@
 sub _caller_name {
     my $depth = shift || 0;
 
-    return join '::', ( caller( 2 + $depth ) )[0, 3];
+    return ( caller( 2 + $depth ) )[3];
 }
 
 1;