On Sun, Oct 01, 2006 at 10:54:42AM -0400, alexchorny@gmail.com via RT wrote:
Show quoted text> Queue: Net-Ident
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=21803 >
>
> package HashPrint;
>
> use 5.004;
> use base Tie::Handle;
> use strict;
>
> sub TIEHANDLE {
> my $pkg = shift;
> my $self;
> open $self, ">&STDOUT";
> bless \$self, $pkg;
> }
>
> sub PRINT {
> my $self = shift;
> my $fh=${$self};
> foreach (@_) {
> my $str=$_;
> $str=~s/^/#/mg;
> # print STDERR $str;
> print $fh $str;
> }
> }
>
> 1;
Thanks for the fix! It really gets time for a Net::Ident update,
I'll see what I can do to release something.
--
Jan-Pieter Cornet <johnpc@xs4all.nl>
!! Disclamer: The addressee of this email is not the intended recipient. !!
!! This is only a test of the echelon and data retention systems. Please !!
!! archive this message indefinitely to allow verification of the logs. !!
