perl-unicode

[PATCH] Encode::Encoding

2002-05-06 02:51:10

  package Encode::MyEncoding;
  use base qw(Encode::Encoding);

  __PACKAGE__->Define(qw(myCanonical myAlias));

dies saying:

   Error:  Undefined subroutine &Encode::define_encoding called at ...

Patch follows after sig.

--
Tatsuhiko Miyagawa <miyagawa(_at_)edge(_dot_)co(_dot_)jp>


--- lib/Encode/Encoding.pm~     Sun Apr 28 05:09:05 2002
+++ lib/Encode/Encoding.pm      Mon May  6 18:48:59 2002
@@ -3,6 +3,8 @@
 use strict;
 our $VERSION = do { my @r = (q$Revision: 1.29 $ =~ /\d+/g); sprintf 
"%d."."%02d" x $#r, @r };
 
+require Encode;
+
 sub Define
 {
     my $obj = shift;

<Prev in Thread] Current Thread [Next in Thread>