Change 11484 by jhi@alpha on 2001/07/29 20:03:13
Remove tiehandle code.
Affected files ...
... //depot/perl/lib/UnicodeCD.pm#7 edit
Differences ...
==== //depot/perl/lib/UnicodeCD.pm#7 (text) ====
Index: perl/lib/UnicodeCD.pm
--- perl/lib/UnicodeCD.pm.~1~ Sun Jul 29 14:15:05 2001
+++ perl/lib/UnicodeCD.pm Sun Jul 29 14:15:05 2001
@@ -241,18 +241,6 @@
[ 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 @@
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
End of Patch.
