From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 29 Jul 2001 20:03:13 +0000 (+0000)
Subject: Remove tiehandle code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39ff46bff9a1d718fe7275082b0058550ffe99df;p=p5sagit%2Fp5-mst-13.2.git

Remove tiehandle code.

p4raw-id: //depot/perl@11484
---

diff --git a/lib/UnicodeCD.pm b/lib/UnicodeCD.pm
index bde511c..2e01a74 100644
--- a/lib/UnicodeCD.pm
+++ b/lib/UnicodeCD.pm
@@ -241,18 +241,6 @@ my @CharinfoRanges = (
   [ 0x100000, 0x10FFFD, undef,   undef  ],
 );
 
-sub TIEHANDLE {
-    my $class = shift;
-    bless { @_ }, $class;
-}
-
-sub READLINE {
-    warn "READLINE @_\n";
-    my $self = shift;
-    my $fh   = $self->{FH};
-    "00 ". <$fh>;
-}
-
 sub charinfo {
     my $arg  = shift;
     my $code = _getcode($arg);
@@ -272,11 +260,9 @@ sub charinfo {
     openunicode(\$UNICODEFH, "Unicode.txt");
     if (defined $UNICODEFH) {
 	use Search::Dict;
-	tie *UNICODEFH, __PACKAGE__, FH => *UNICODEFH unless tied *UNICODEFH;
-	if (look($UNICODEFH, "$hexk;") >= 0) {
+	if (look($UNICODEFH, "$hexk;")) {
 	    my $line = <$UNICODEFH>;
 	    chomp $line;
-	    $line =~ s/^0+(\w{4};)/$1/;
 	    my %prop;
 	    @prop{qw(
 		     code name category