From 57797241ccfef1581e6f5bbaa0c50d7faa89b290 Mon Sep 17 00:00:00 2001
From: Anton Berezin <tobez@tobez.org>
Date: Wed, 21 Aug 2002 01:44:25 +0200
Subject: fix lib.pm's import() to accept readonly parameters Message-ID:
 <20020820214425.GG16178@heechee.tobez.org>

p4raw-id: //depot/perl@17768
---
 lib/lib.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/lib.t')

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' );
-- 
cgit v1.2.1