oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore original Darwin buffer hack.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-24 19:49:30 -07:00
parent 3e38ac540a
commit 79f84aec68
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/lib/WebGUI/Test.pm
View file

@ -32,9 +32,10 @@ BEGIN {
if ( $^O eq 'darwin' && $Config::Config{osvers} lt '8.0.0' ) { if ( $^O eq 'darwin' && $Config::Config{osvers} lt '8.0.0' ) {
unshift @INC, sub { unshift @INC, sub {
return undef unless $_[1] =~ m/^Apache2|APR/; return undef unless $_[1] =~ m/^Apache2|APR/;
my $buffer = '1'; return IO::File->new( $INC{'Class/Null.pm'}, &IO::File::O_RDONLY );
open my $fh, '<', \$buffer; #my $buffer = '1';
return $fh; #open my $fh, '<', \$buffer;
#return $fh;
}; };
no warnings 'redefine'; no warnings 'redefine';