From ca570b527837eaaf84750ae3eec92e86d4ec2d5c Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 18 Sep 2005 07:57:07 +0000
Subject: [PATCH] Remove broken+useless+unused TIEHANDLE stubs.

---
 Web.pm | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/Web.pm b/Web.pm
index 33cd6d9..7902503 100644
--- a/Web.pm
+++ b/Web.pm
@@ -315,24 +315,6 @@ my($text)=@_;
 	return CGI::escapeHTML($text);
 }
 
-# local *FH;
-# tie *FH,ref($W),$W;
-sub TIEHANDLE($)
-{
-my($class,$W)=@_;
-
-	my $self={};
-	$self->{"W"}=$W or confess "Missing W";
-	return bless $self,$class;
-}
-
-sub WRITE
-{
-my($self,$scalar,$length,$offset)=@_;
-
-	Wprint substr($scalar,0,$length);
-}
-
 # /home/user/www/webdir
 sub dir_top_abs_disk()
 {
-- 
1.8.3.1