From 30f6e343cbaf52c4a13871f23e47dafd6fbb5520 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 19 Feb 2012 09:29:00 +0000
Subject: Jcode 2.07

---
 cpan/lib/Jcode/Constants.pm | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

(limited to 'cpan/lib/Jcode/Constants.pm')

diff --git a/cpan/lib/Jcode/Constants.pm b/cpan/lib/Jcode/Constants.pm
index 923890d3..f83f7e0d 100644
--- a/cpan/lib/Jcode/Constants.pm
+++ b/cpan/lib/Jcode/Constants.pm
@@ -1,27 +1,24 @@
 #
-# $Id: Constants.pm,v 1.2 2001/05/18 05:14:38 dankogai Exp $
+# $Id: Constants.pm,v 2.0 2005/05/16 19:07:56 dankogai Exp $
 #
 
 package Jcode::Constants;
 
-use strict;
 use vars qw($RCSID $VERSION);
 
-$RCSID = q$Id: Constants.pm,v 1.2 2001/05/18 05:14:38 dankogai Exp $;
-$VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$RCSID = q$Id: Constants.pm,v 2.0 2005/05/16 19:07:56 dankogai Exp $;
+$VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Carp;
 
-BEGIN {
-    use Exporter;
-    use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    @EXPORT_OK   = qw(%CHARCODE %ESC %RE);
-    %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
-}
+use Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+@ISA         = qw(Exporter);
+@EXPORT      = qw();
+@EXPORT_OK   = qw(%CHARCODE %ESC %RE);
+%EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
 
-use vars @EXPORT_OK;
+use vars qw(%CHARCODE %ESC %RE);
 
 my %_0208 = (
 	       1978 => '\e\$\@',
-- 
cgit v1.2.1