From: Vincent Pit <vince@profvince.com>
Date: Sun, 23 Aug 2009 16:15:17 +0000 (+0200)
Subject: This is 0.18
X-Git-Tag: v0.18^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=75cf45cd438ca888114977c6917a11e7364402f3;p=perl%2Fmodules%2Findirect.git

This is 0.18
---

diff --git a/Changes b/Changes
index d9fc4f4..b450954 100644
--- 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 fee3444..1efe25f 100644
--- 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 88f2beb..d1b1229 100644
--- 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 c6ae98a..edfe093 100644
--- 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