1b39c5158Smillert#!./perl 2b39c5158Smillert 3b39c5158Smillertuse FileCache; 4b39c5158Smillert 5*f2a19305Safresh1END { unlink("Foo_Bar_ov") } 6b39c5158Smillert 7b39c5158Smillertuse Test::More tests => 1; 8b39c5158Smillert 9b39c5158Smillert{# Test 5: that close is overridden properly within the caller 10*f2a19305Safresh1 cacheout local $_ = "Foo_Bar_ov"; 11b39c5158Smillert print $_ "Hello World\n"; 12b39c5158Smillert close($_); 13b39c5158Smillert ok(!fileno($_)); 14b39c5158Smillert} 15