This is 0.22

diff --git a/Changes b/Changes
index 83b6f920b1556bdf4e36afd85e96d34876ded453..6e8a8f70cc953412de32c8e5f1ea6e27aa895c71 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,16 @@
 Revision history for indirect
 
+0.22    2010-08-16 16:00 UTC
+        + Add : Indirect constructs are now reported for code interpolated
+                in quote-like environments, like "${\( ... )}", "@{[ ... ]}",
+                s/pattern/ ... /e, qr/(?{ ... })/ or qr/(??{ ... })/.
+        + Add : You can now make the pragma lethal by passing anything matching
+                /^:?fatal$/i to import(), including "FATAL" and ":Fatal".
+        + Fix : [RT #60378] : segmentation fault on indirect_ck_method.
+                This caused constructs like "@{[ $obj->$meth ]}" to segfault
+                when $meth was a lexical.
+                Thanks Tokuhiro Matsuno for reporting.
+
 0.21    2010-05-31 23:10 UTC
         + Chg : perl 5.8.1 is now required (instead of 5.8.0).
         + Fix : [RT #57699] : indirect fail with 64-bit int on 5.13.1.

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

diff --git a/README b/README
index a563ea0adc3a9a95c73022856fa910878e409c71..64b28925d24edcd7ca4da403e019f44c9618e5e7 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION
-    Version 0.21
+    Version 0.22
 
 SYNOPSIS
         # In a script
@@ -18,7 +18,7 @@ SYNOPSIS
         }
         try { ... }; # warns
 
-        no indirect ':fatal';
+        no indirect ':fatal';    # or 'FATAL', or ':Fatal' ...
         if (defied $foo) { ... } # croaks, note the typo
 
         # From the command-line
@@ -34,7 +34,7 @@ DESCRIPTION
     object syntax constructs that may have slipped into your code.
 
     This syntax is now considered harmful, since its parsing has many quirks
-    and its use is error prone (when "swoosh" isn't defined, "swoosh $x"
+    and its use is error prone (when "swoosh" is not defined, "swoosh $x"
     actually compiles to "$x->swoosh"). In
     <http://www.shadowcat.co.uk/blog/matt-s-trout/indirect-but-still-fatal>,
     Matt S. Trout gives an example of an indirect construct that can cause a
@@ -47,12 +47,12 @@ DESCRIPTION
     This module is not a source filter.
 
 METHODS
-  "unimport [ hook => $hook | ':fatal' ]"
+  "unimport [ hook => $hook | ':fatal', 'FATAL', ... ]"
     Magically called when "no indirect @opts" is encountered. Turns the
     module on. The policy to apply depends on what is first found in @opts :
 
-    *   If it's the string ':fatal', the compilation will croak on the first
-        indirect syntax met.
+    *   If it is a string that matches "/^:?fatal$/i", the compilation will
+        croak on the first indirect syntax met.
 
     *   If the key/value pair "hook => $hook" comes first, $hook will be
         called for each error with a string representation of the object as
@@ -99,12 +99,12 @@ ENVIRONMENT
     for disabling "indirect" in production environments.
 
     Note that clearing this variable after "indirect" was loaded has no
-    effect. If you want to reenable the pragma later, you also need to
+    effect. If you want to re-enable the pragma later, you also need to
     reload it by deleting the 'indirect.pm' entry from %INC.
 
 CAVEATS
     The implementation was tweaked to work around several limitations of
-    vanilla "perl" pragmas : it's thread safe, and doesn't suffer from a
+    vanilla "perl" pragmas : it's thread safe, and does not suffer from a
     "perl 5.8.x-5.10.0" bug that causes all pragmas to propagate into
     "require"d scopes.
 

diff --git a/lib/indirect.pm b/lib/indirect.pm
index 01eed4f1801d3649b01cb4cc21dff671c0b0ea08..86cdf37762768dcc281965c9de5d28cb37fbad11 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.21
+Version 0.22
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.21';
+ $VERSION = '0.22';
 }
 
 =head1 SYNOPSIS