package TieEvil;

# FCGI tied with a scalar ref object, which breaks when you

# call open on it.  Emulate that to test the workaround:

use Carp ();

sub TIEHANDLE 

{

 my $class = shift;

 my $fh    = \(my $scalar); # this is evil and broken

 return bless $fh,$class;

}

sub EOF     { 0 }

sub TELL    { length ${$_[0]} }

sub FILENO  { -1 }

sub SEEK    { 1 }

sub CLOSE   { 1 }

sub BINMODE { 1 }

sub OPEN { Carp::confess "unimplemented" }

sub READ     { $_[1] = substr(${$_[0]},$_[3],$_[2]) }

sub READLINE { "hello world\n" }

sub GETC     { substr(${$_[0]},0,1) }

sub PRINT {

  my ($self, @what) = @_;

  my $new = join($\, @what);

  $$self .= $new;

  return length $new;

}

sub UNTIE { 1 }; # suppress warnings about references

1;