This is 0.13

diff --git a/Changes b/Changes
index 20755cf4273aa512e48e5a5fd02558a725a97aa4..67deb721563edd9eca11861954e1cae914eb0445 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,15 @@
 Revision history for indirect
 
+0.13    2009-05-24 18:50 UTC
+        + Add : The hook now receives the file name and the line where the
+                error happened in respectively $_[2] and $_[3].
+        + Fix : Pass mortalized copies of the method name and object to the
+                hook. This seems to fix some rare crashes.
+        + Fix : Work around a bug in perl 5.10.0 and lower. Thanks Andrew Main
+                for teaching me about this issue.
+        + Fix : Report the correct file in error messages (a regression from the
+                previous version).
+
 0.12    2009-05-03 14:30 UTC
         + Add : You can specify the action to execute for each indirect
                 construct encountered with the new "hook => $coderef" unimport()

diff --git a/META.yml b/META.yml
index d2dc20a2d249dd011ebd8b5a546fac635798f152..fcc323f971d1946f6d1fbf196ec1421d5c31e515 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               indirect
-version:            0.12
+version:            0.13
 abstract:           Lexically warn about using the indirect object syntax.
 author:
     - Vincent Pit <perl@profvince.com>

diff --git a/README b/README
index c8d4438069cd48b8c935dbfb0066d55407211097..18baca1937f77f7e2ae3bc8d39b1aada845f2bd4 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION
-    Version 0.12
+    Version 0.13
 
 SYNOPSIS
         # In a script
@@ -50,8 +50,8 @@ METHODS
         indirect syntax met.
 
     *   If the key/value pair "hook => $hook" comes first, $hook will be
-        called for each error with the object name as $_[0] and the method
-        name as $_[1].
+        called for each error with the object name as $_[0], the method name
+        as $_[1], the current file as $_[2] and the line number as $_[3].
 
     *   Otherwise, a warning will be emitted for each indirect construct.
 

diff --git a/lib/indirect.pm b/lib/indirect.pm
index bad02f4e72dcc6962741141a05baca5d100f7162..b8e6f84a6d3b4dbb62497ffc90121d281cfcffe5 100644 (file)
--- a/lib/indirect.pm
+++ b/lib/indirect.pm
@@ -11,13 +11,13 @@ indirect - Lexically warn about using the indirect object syntax.
 
 =head1 VERSION
 
-Version 0.12
+Version 0.13
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.12';
+ $VERSION = '0.13';
 }
 
 =head1 SYNOPSIS