This is 0.17

diff --git a/Changes b/Changes
index 29ea7980633f233da2ff35ba58c433ec849ba7ba..d9fc4f4e15400bf8fc8e5c253bf683c3d1609fbc 100644 (file)
--- 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 3fec87ec9e26cc7f2068a4d9a18b18861806789f..fee34445e858b233e283be2cdd767b5371e1d3d6 100644 (file)
--- 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 f362c9fdc574fa55458eb92b7028c7b0dfd358ee..88f2bebc41249c95d5ea200d6b4feb6335888ac2 100644 (file)
--- 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 6e99ebaf06b7ae490e2911b884edf7894bfa8b5a..27c37b469cfcd4808f8a14341b4578c0c7ee8f63 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.16
+Version 0.17
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.16';
+ $VERSION = '0.17';
 }
 
 =head1 SYNOPSIS