Update Encode to CPAN version 2.48

  [DELTA]

  $Revision: 2.48 $ $Date: 2013/02/18 02:23:56 $
  ! encoding.pm
    t/Mod_EUCJP.pm t/enc_data.t t/enc_eucjp.t t/enc_module.t t/enc_utf8.t
    t/encoding.t t/jperl.t
    [PATCH] Deprecate encoding.pm
    https://rt.cpan.org/Ticket/Display.html?id=81255
  ! Encode/Supported.pod
    Fixed: Pod errors
    https://rt.cpan.org/Ticket/Display.html?id=81426
  ! Encode.pm t/Encode.t
    [PATCH] Fix for shared hash key scalars
    https://rt.cpan.org/Ticket/Display.html?id=80608
  ! Encode.pm
    Fixed: Uninitialized value warning from Encode->encodings()
    https://rt.cpan.org/Ticket/Display.html?id=80181
  ! Makefile.PL
    Install to 'site' instead of 'perl' when perl version is 5.11+
    https://rt.cpan.org/Ticket/Display.html?id=78917
  ! Encode/Makefile_PL.e2x
    find enc2xs.bat if it works on windows.
    https://github.com/dankogai/p5-encode/pull/7
  ! t/piconv.t
    Fix finding piconv in t/piconv.t
    https://github.com/dankogai/p5-encode/pull/6

9 files changed, 28 insertions, 10 deletions

diff --git a/cpan/Encode/t/Encode.t b/cpan/Encode/t/Encode.t
index 369557ef1d..918975eb4c 100644
--- a/cpan/Encode/t/Encode.t
+++ b/cpan/Encode/t/Encode.t
@@ -25,7 +25,7 @@ my @character_set = ('0'..'9', 'A'..'Z', 'a'..'z');
 my @source = qw(ascii iso8859-1 cp1250);
 my @destiny = qw(cp1047 cp37 posix-bc);
 my @ebcdic_sets = qw(cp1047 cp37 posix-bc);
-plan test => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6 + 2;
+plan test => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6 + 4;
 my $str = join('',map(chr($_),0x20..0x7E));
 my $cpy = $str;
 ok(length($str),from_to($cpy,'iso8859-1','Unicode'),"Length Wrong");
@@ -149,3 +149,14 @@ sub new { my $class = shift; bless [ @_  ] => $class }
 package main;
 ok(decode(latin1 => Encode::Dummy->new("foobar")), "foobar");
 ok(encode(utf8   => Encode::Dummy->new("foobar")), "foobar");
+
+# hash keys
+my $key = (keys %{{ "whatever\x{100}" => '' }})[0];
+my $kopy = $key;
+encode("UTF-16LE", $kopy, Encode::FB_CROAK);
+ok $key, "whatever\x{100}", 'encode with shared hash key scalars';
+undef $key;
+$key = (keys %{{ "whatever" => '' }})[0];
+$kopy = $key;
+decode("UTF-16LE", $kopy, Encode::FB_CROAK);
+ok $key, "whatever", 'decode with shared hash key scalars';
diff --git a/cpan/Encode/t/Mod_EUCJP.pm b/cpan/Encode/t/Mod_EUCJP.pm
index 488f156d5a..ebc401e8e8 100644
--- a/cpan/Encode/t/Mod_EUCJP.pm
+++ b/cpan/Encode/t/Mod_EUCJP.pm
@@ -1,6 +1,7 @@
-# $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $
+# $Id: Mod_EUCJP.pm,v 2.1 2013/02/18 02:23:56 dankogai Exp dankogai $
 # This file is in euc-jp
 package Mod_EUCJP;
+no warnings "deprecated";
 use encoding "euc-jp";
 sub new {
   my $class = shift;
diff --git a/cpan/Encode/t/enc_data.t b/cpan/Encode/t/enc_data.t
index 52d7e11996..afca4e590e 100644
--- a/cpan/Encode/t/enc_data.t
+++ b/cpan/Encode/t/enc_data.t
@@ -1,4 +1,4 @@
-# $Id: enc_data.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: enc_data.t,v 2.2 2013/02/18 02:23:56 dankogai Exp dankogai $
 
 BEGIN {
     require Config; import Config;
@@ -22,6 +22,7 @@ BEGIN {
 
 
 use strict;
+no warnings "deprecated";
 use encoding 'euc-jp';
 use Test::More tests => 4;
 
diff --git a/cpan/Encode/t/enc_eucjp.t b/cpan/Encode/t/enc_eucjp.t
index 2fdd8110d1..dc35c35f6c 100644
--- a/cpan/Encode/t/enc_eucjp.t
+++ b/cpan/Encode/t/enc_eucjp.t
@@ -1,4 +1,4 @@
-# $Id: enc_eucjp.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: enc_eucjp.t,v 2.2 2013/02/18 02:23:56 dankogai Exp dankogai $
 # This is the twin of enc_utf8.t .
 
 BEGIN {
@@ -21,6 +21,7 @@ BEGIN {
     }
 }
 
+no warnings "deprecated";
 use encoding 'euc-jp';
 
 my @c = (127, 128, 255, 256);
diff --git a/cpan/Encode/t/enc_module.t b/cpan/Encode/t/enc_module.t
index f187bd78b7..0ff3fd1db6 100644
--- a/cpan/Encode/t/enc_module.t
+++ b/cpan/Encode/t/enc_module.t
@@ -1,4 +1,4 @@
-# $Id: enc_module.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: enc_module.t,v 2.2 2013/02/18 02:23:56 dankogai Exp dankogai $
 # This file is in euc-jp
 BEGIN {
     require Config; import Config;
@@ -21,6 +21,7 @@ BEGIN {
 }
 use lib qw(t ext/Encode/t ../ext/Encode/t); # latter 2 for perl core
 use Mod_EUCJP;
+no warnings "deprecated";
 use encoding "euc-jp";
 use Test::More tests => 3;
 use File::Basename;
diff --git a/cpan/Encode/t/enc_utf8.t b/cpan/Encode/t/enc_utf8.t
index 5a301962cb..de4a4ad6d0 100644
--- a/cpan/Encode/t/enc_utf8.t
+++ b/cpan/Encode/t/enc_utf8.t
@@ -1,4 +1,4 @@
-# $Id: enc_utf8.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: enc_utf8.t,v 2.2 2013/02/18 02:23:56 dankogai Exp dankogai $
 # This is the twin of enc_eucjp.t .
 
 BEGIN {
@@ -17,6 +17,7 @@ BEGIN {
     }
 }
 
+no warnings "deprecated";
 use encoding 'utf8';
 
 my @c = (127, 128, 255, 256);
diff --git a/cpan/Encode/t/encoding.t b/cpan/Encode/t/encoding.t
index b17b11fc44..8c7f253377 100644
--- a/cpan/Encode/t/encoding.t
+++ b/cpan/Encode/t/encoding.t
@@ -16,6 +16,7 @@ BEGIN {
 
 print "1..31\n";
 
+no warnings "deprecated";
 use encoding "latin1"; # ignored (overwritten by the next line)
 use encoding "greek";  # iso 8859-7 (no "latin" alias, surprise...)
 
diff --git a/cpan/Encode/t/jperl.t b/cpan/Encode/t/jperl.t
index da68468901..915d26c686 100644
--- a/cpan/Encode/t/jperl.t
+++ b/cpan/Encode/t/jperl.t
@@ -1,5 +1,5 @@
 #
-# $Id: jperl.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: jperl.t,v 2.2 2013/02/18 02:23:56 dankogai Exp dankogai $
 #
 # This script is written in euc-jp
 
@@ -27,6 +27,7 @@ use strict;
 use Test::More tests => 15; # black magic tests commented out
 my $Debug = shift;
 
+no warnings "deprecated";
 no encoding; # ensure
 my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes
 use encoding "euc-jp";
diff --git a/cpan/Encode/t/piconv.t b/cpan/Encode/t/piconv.t
index ed084b4159..1dba44a570 100644
--- a/cpan/Encode/t/piconv.t
+++ b/cpan/Encode/t/piconv.t
@@ -1,5 +1,5 @@
 #
-# $Id: piconv.t,v 0.3 2009/11/16 14:08:13 dankogai Exp $
+# $Id: piconv.t,v 0.4 2013/02/18 02:23:56 dankogai Exp dankogai $
 #
 
 BEGIN {
@@ -27,8 +27,8 @@ sub run_cmd (;$$);
 
 my $blib =
   File::Spec->rel2abs(
-    File::Spec->catdir( $FindBin::RealBin, File::Spec->updir, 'blib' ) );
-my $script = File::Spec->catdir($blib, 'script', 'piconv');
+    File::Spec->catdir( $FindBin::RealBin, File::Spec->updir ) );
+my $script = File::Spec->catdir($blib, 'bin', 'piconv');
 my @base_cmd = ( $^X, "-Mblib=$blib", $script );
 
 plan tests => 5;