From: Vincent Pit <vince@profvince.com>
Date: Sun, 24 May 2009 18:50:51 +0000 (+0200)
Subject: This is 0.13
X-Git-Tag: v0.13^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=93dd6e5ecfa09f52a9aa17909df51d09a0a0a6ff;p=perl%2Fmodules%2Findirect.git

This is 0.13
---

diff --git a/Changes b/Changes
index 20755cf..67deb72 100644
--- 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 d2dc20a..fcc323f 100644
--- 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 c8d4438..18baca1 100644
--- 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 bad02f4..b8e6f84 100644
--- 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