fix lib.pm's import() to accept readonly parameters

Message-ID: <20020820214425.GG16178@heechee.tobez.org>

p4raw-id: //depot/perl@17768

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/lib.t b/lib/lib.t
index 41280eee39..c137a3fa06 100644
--- a/lib/lib.t
+++ b/lib/lib.t
@@ -6,7 +6,7 @@ BEGIN {
     @OrigINC = @INC;
 }
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Config;
 use File::Spec;
 use File::Path;
@@ -81,6 +81,9 @@ BEGIN {
 
 no lib $Lib_Dir;
 
+unlike( do { eval 'use lib $Config{installsitelib};'; $@ || '' },
+	qr/::Config is read-only/, 'lib handles readonly stuff' );
+
 BEGIN {
     is( grep(/stuff/, @INC), 0, 'no lib' );
     ok( !do 'Yup.pm',           '   do() effected' );