Change 15207 by jhi@alpha on 2002/03/12 17:38:46
VERSIONize.
Affected files ...
.... //depot/perl/ext/Encode/lib/Encode/CN/HZ.pm#3 edit
.... //depot/perl/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm#2 edit
.... //depot/perl/ext/Encode/lib/Encode/JP/JIS.pm#3 edit
Differences ...
==== //depot/perl/ext/Encode/lib/Encode/CN/HZ.pm#3 (text) ====
Index: perl/ext/Encode/lib/Encode/CN/HZ.pm
--- perl/ext/Encode/lib/Encode/CN/HZ.pm.~1~ Tue Mar 12 10:45:05 2002
+++ perl/ext/Encode/lib/Encode/CN/HZ.pm Tue Mar 12 10:45:05 2002
@@ -3,6 +3,9 @@
use strict;
no warnings 'redefine'; # to quell the "use Encode" below
+use vars qw($VERSION);
+$VERSION = 0.01;
+
use Encode::CN;
use Encode qw|encode decode|;
use base 'Encode::Encoding';
==== //depot/perl/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm#2 (text) ====
Index: perl/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm
--- perl/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm.~1~ Tue Mar 12 10:45:05 2002
+++ perl/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm Tue Mar 12 10:45:05 2002
@@ -4,6 +4,8 @@
use Encode::JP::H2Z;
use base 'Encode::Encoding';
+use vars qw($VERSION);
+$VERSION = 0.01;
my $canon = 'iso-2022-jp';
my $obj = bless {name => $canon}, __PACKAGE__;
==== //depot/perl/ext/Encode/lib/Encode/JP/JIS.pm#3 (text) ====
Index: perl/ext/Encode/lib/Encode/JP/JIS.pm
--- perl/ext/Encode/lib/Encode/JP/JIS.pm.~1~ Tue Mar 12 10:45:05 2002
+++ perl/ext/Encode/lib/Encode/JP/JIS.pm Tue Mar 12 10:45:05 2002
@@ -4,6 +4,9 @@
use strict;
+use vars qw($VERSION);
+$VERSION = 0.01;
+
# Just for the time being, we implement jis-7bit
# encoding via EUC
End of Patch.
