Fixed up INC untaint procedure to skip/ignore CODE, ARRAY, blessed entries.

[p5sagit/local-lib.git] / xt / subroutine-in-inc.t

diff --git a/xt/subroutine-in-inc.t b/xt/subroutine-in-inc.t
new file mode 100644 (file)
index 0000000..9186a80
--- /dev/null
+++ b/xt/subroutine-in-inc.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use Test::More;
+
+plan qw/no_plan/;
+
+use File::Spec;
+use Cwd;
+use File::Temp qw/ tempdir /;
+my $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
+my $base;
+
+sub CODE_in_INC() {
+    return scalar grep { ref eq 'CODE' } @INC;
+}
+
+BEGIN {
+    $base = CODE_in_INC;
+    unshift @INC, sub { };
+    splice @INC, 3, 1, sub { };
+    push @INC, sub { };
+}
+
+use local::lib( $dir );
+
+is( CODE_in_INC, $base + 3 );