From 4a18dc28664f2e29af2105a7f018cb19013a4bbb Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 30 May 2004 13:57:05 +0000 Subject: [PATCH] Upgrade to Encode 2.01. p4raw-id: //depot/perl@22868 --- ext/Encode/lib/Encode/CN/HZ.pm | 2 +- ext/Encode/lib/Encode/Unicode/UTF7.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/Encode/lib/Encode/CN/HZ.pm b/ext/Encode/lib/Encode/CN/HZ.pm index dc4f54e..fbc6ba6 100644 --- a/ext/Encode/lib/Encode/CN/HZ.pm +++ b/ext/Encode/lib/Encode/CN/HZ.pm @@ -3,7 +3,7 @@ package Encode::CN::HZ; use strict; use vars qw($VERSION); -$VERSION = '2.00_01'; +$VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode qw(:fallbacks); diff --git a/ext/Encode/lib/Encode/Unicode/UTF7.pm b/ext/Encode/lib/Encode/Unicode/UTF7.pm index 4a80a5a..733fd16 100644 --- a/ext/Encode/lib/Encode/Unicode/UTF7.pm +++ b/ext/Encode/lib/Encode/Unicode/UTF7.pm @@ -1,12 +1,12 @@ # -# $Id: UTF7.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $ +# $Id: UTF7.pm,v 2.1 2004/05/25 16:27:14 dankogai Exp dankogai $ # package Encode::Unicode::UTF7; use strict; no warnings 'redefine'; use base qw(Encode::Encoding); __PACKAGE__->Define('UTF-7'); -our $VERSION = '2.00_01'; +our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use MIME::Base64; use Encode; -- 2.7.4