This is 0.18

diff --git a/Changes b/Changes
index d9fc4f4e15400bf8fc8e5c253bf683c3d1609fbc..b4509543d5953cd0ab9789be51dc66b9b28c48e4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for indirect
 
+0.18    2009-08-23 16:15 UTC
+        + Add : When set, the PERL_INDIRECT_PM_DISABLE environment variable
+                disables the pragma globally.
+
 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

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

diff --git a/README b/README
index 88f2bebc41249c95d5ea200d6b4feb6335888ac2..d1b1229c0221abc04437cd1c09e0c1686ce43317 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     indirect - Lexically warn about using the indirect object syntax.
 
 VERSION
-    Version 0.17
+    Version 0.18
 
 SYNOPSIS
         # In a script
@@ -80,6 +80,18 @@ DIAGNOSTICS
     The default warning/exception message thrown when an indirect call on a
     block is found.
 
+ENVIRONMENT
+  "PERL_INDIRECT_PM_DISABLE"
+    If this environment variable is set to true when the pragma is used for
+    the first time, the XS code won't be loaded and, although the 'indirect'
+    lexical hint will be set to true in the scope of use, the pragma itself
+    won't do anything. This is useful 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
+    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

diff --git a/lib/indirect.pm b/lib/indirect.pm
index c6ae98a86c16164e4c6e690478d85ce23dcacd32..edfe0933fe64c9ecabdde502a96b4d3aa0246e05 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.17
+Version 0.18
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.17';
+ $VERSION = '0.18';
 }
 
 =head1 SYNOPSIS