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
 
 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.
 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
 --- #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>
 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
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION

-    Version 0.21
+    Version 0.22

 
 SYNOPSIS
         # In a script
 
 SYNOPSIS
         # In a script


@@ -18,7 +18,7 @@ SYNOPSIS
         }
         try { ... }; # warns
 
         }
         try { ... }; # warns
 

-        no indirect ':fatal';
+        no indirect ':fatal';    # or 'FATAL', or ':Fatal' ...

         if (defied $foo) { ... } # croaks, note the typo
 
         # From the command-line
         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
     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
     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
     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 :
 
     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
 
     *   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
     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
     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.
 
     "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
 
 
 =head1 VERSION
 

-Version 0.21
+Version 0.22

 
 =cut
 
 our $VERSION;
 BEGIN {
 
 =cut
 
 our $VERSION;
 BEGIN {

- $VERSION = '0.21';
+ $VERSION = '0.22';

 }
 
 =head1 SYNOPSIS
 }
 
 =head1 SYNOPSIS