p4raw-id: //depot/perl@22868
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);
#
-# $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;