gnu/usr.bin/perl/dist/Storable/t/robust.t


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

# This test script checks that Storable will load properly if someone
# is incorrectly messing with %INC to hide Log::Agent.  No, no-one should
# really be doing this, but, then, it *used* to work!

use Test::More;
plan tests => 1;

$INC{'Log/Agent.pm'} = '#ignore#';
require Storable;
pass;