This is 0.23

diff --git a/Changes b/Changes
index 6e8a8f70cc953412de32c8e5f1ea6e27aa895c71..8500f5c1047e0be6d7894a34ce88498b021d3db0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,16 @@
 Revision history for indirect
 
+0.23    2010-10-03 00:15 UTC
+        + Fix : Some indirect constructs could be incorrectly reported when
+                several modules were used in the same scope. This caused
+                t/30-scope.t to fail randomly.
+        + Tst : Threads tests are now only run on perl 5.13.4 and higher.
+                They could segfault randomly because of what seems to be an
+                internal bug of Perl, which has been addressed in 5.13.4.
+                There is also an environment variable that allows you to
+                forcefully run those tests, but it should be set only for
+                author testing and not for end users.
+
 0.22    2010-08-16 16:00 UTC
         + Add : Indirect constructs are now reported for code interpolated
                 in quote-like environments, like "${\( ... )}", "@{[ ... ]}",

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

diff --git a/README b/README
index 64b28925d24edcd7ca4da403e019f44c9618e5e7..e1aa30551a21b8d57b5b484bfd0709930de61adc 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION
-    Version 0.22
+    Version 0.23
 
 SYNOPSIS
         # In a script
@@ -108,9 +108,11 @@ CAVEATS
     "perl 5.8.x-5.10.0" bug that causes all pragmas to propagate into
     "require"d scopes.
 
-    "meth $obj" (no semicolon) at the end of a file won't be seen as an
-    indirect object syntax, although it will as soon as there is another
-    token before the end (as in "meth $obj;" or "meth $obj 1").
+    Before "perl" 5.12, "meth $obj" (no semicolon) at the end of a file is
+    not seen as an indirect object syntax, although it is as soon as there
+    is another token before the end (as in "meth $obj;" or "meth $obj 1").
+    If you use "perl" 5.12 or greater, those constructs are correctly
+    reported.
 
     With 5.8 perls, the pragma does not propagate into "eval STRING". This
     is due to a shortcoming in the way perl handles the hints hash, which is

diff --git a/lib/indirect.pm b/lib/indirect.pm
index 09090c226e1edef1e91d0bcd491921ff25fbe6e4..aae11cd36300f72d8817ef3baeed4b64152f5d72 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.22
+Version 0.23
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.22';
+ $VERSION = '0.23';
 }
 
 =head1 SYNOPSIS