From: Vincent Pit <vince@profvince.com>
Date: Thu, 16 Jul 2009 12:10:24 +0000 (+0200)
Subject: This is 0.17
X-Git-Tag: v0.17^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b47c75970ab200626c92f26eab0f3a4a1123bb6f;p=perl%2Fmodules%2Findirect.git

This is 0.17
---

diff --git a/Changes b/Changes
index 29ea798..d9fc4f4 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,13 @@
 Revision history for indirect
 
+0.17    2009-07-16 12:10 UTC
+        + Fix : [RT #47902] : "no indirect" leaking again.
+                This actually turned out to be a bug in how the hook coderefs
+                were stored in the hints hash.
+                Thanks Andrew Main for reporting once again.
+        + Fix : t/80-regressions.t failing on Windows.
+        + Tst : Yet more cleanups.
+
 0.16    2009-07-14 16:50 UTC
         + Add : Indirect calls on blocks are now reported. For those, '{' is
                 passed to the hook as the object description.
diff --git a/META.yml b/META.yml
index 3fec87e..fee3444 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               indirect
-version:            0.16
+version:            0.17
 abstract:           Lexically warn about using the indirect object syntax.
 author:
     - Vincent Pit <perl@profvince.com>
diff --git a/README b/README
index f362c9f..88f2beb 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION
-    Version 0.16
+    Version 0.17
 
 SYNOPSIS
         # In a script
@@ -94,6 +94,9 @@ CAVEATS
     is due to a shortcoming in the way perl handles the hints hash, which is
     addressed in perl 5.10.
 
+    The search for indirect method calls happens before constant folding.
+    Hence "my $x = new Class if 0" will be caught.
+
 DEPENDENCIES
     perl 5.8.
 
diff --git a/lib/indirect.pm b/lib/indirect.pm
index 6e99eba..27c37b4 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.16
+Version 0.17
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.16';
+ $VERSION = '0.17';
 }
 
 =head1 SYNOPSIS