0.36. patch for rt.cpan.org # 28814

ChangeLog

@@ -1,3 +1,10 @@
+0.36 Mon Aug 13 12:16:38 EDT 2007
+
+    * [rt.cpan.org #28814] - Performance improvement from mehradek (Radoslaw Zielinski)
+        -use English;
+        +use English qw( -no_match_vars );
+
+
 0.35 Fri Apr 20 12:33:53 EDT 2007 - Jesse Vincent <jesse@bestpractical.com>
 
     * New Maintainer: Jesse Vincent <jesse@bestpractical.com> took over

Makefile.PL

@@ -1,7 +1,7 @@
 use 5.005;
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use ExtUtils::MakeMaker;
 
 use File::Find;

lib/GnuPG/Interface.pm

@@ -1,4 +1,4 @@
-#  Interface.pm
+#  Jnterface.pm
 #    - providing an object-oriented approach to interacting with GnuPG
 #
 #  Copyright (C) 2000 Frank J. Tobin <ftobin@cpan.org>
@@ -14,7 +14,7 @@
 package GnuPG::Interface;
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use Carp;
 use Fcntl;
 use vars qw( $VERSION );
@@ -26,7 +26,7 @@ use IO::Handle;
 use GnuPG::Options;
 use GnuPG::Handles;
 
-$VERSION = '0.35';
+$VERSION = '0.36';
 
 use Class::MethodMaker
   get_set         => [ qw( call  passphrase ) ],

t/MyTest.pm

@@ -16,7 +16,7 @@
 package MyTest;
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use Exporter;
 use IO::File;
 use vars qw( @ISA @EXPORT );

t/MyTestSpecific.pm

@@ -14,7 +14,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use Fatal qw/ open close /;
 use IO::File;
 use IO::Handle;

t/clearsign.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/decrypt.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use File::Compare;
 
 use lib './t';

t/detach_sign.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/encrypt.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/encrypt_symmetrically.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/export_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/get_public_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/get_secret_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/import_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/list_public_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use IO::File;
 
 use lib './t';

t/list_secret_keys.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/list_sigs.t

@@ -3,7 +3,7 @@
 # $Id: list_sigs.t,v 1.7 2001/05/03 06:00:06 ftobin Exp $
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/passphrase_handling.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 use Symbol;
 use IO::File;
 

t/sign.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/sign_and_encrypt.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;

t/verify.t

@@ -4,7 +4,7 @@
 #
 
 use strict;
-use English;
+use English qw( -no_match_vars );
 
 use lib './t';
 use MyTest;