Craig--
Thanks for having a go at it.
Hmm.. I really wasn't expecting death in scalar manipulation.
I tried not to affect scalars when implementing arrays.
It looks like
use Env qw(FOO);
allows $FOO to behave correctly under appending, but that
use Env qw($BAR);
breaks it. Perhaps the latter is clobbering the initial
value...
I'll go have a more detailed look and enhance env.t to
check more stuff.
Regards,
--Gregor
At 03:35 PM 2/15/00 -0500, you wrote:
>At 02:46 PM 2/15/00 -0500, Gregor N. Purdy wrote:
> >This enhanced Env.pm and t/lib/env.t implements environment
> >arrays (see the POD in Env.pm).
>
>I have not looked closely at what's going on, but here's what I get, with test #2
>tinkered with to print out what it's seeing instead of what it's supposed to.
>
>$ perl env.t
>1..3
>ok 1
>not ok 2 # $BAR=/baz
>ok 3 # skipped
>$ perl -v
>
>This is perl, version 5.005_03 built for VMS_AXP
>
>Copyright 1987-1999, Larry Wall
>
>Perl may be copied only under the terms of either the Artistic License or the
>GNU General Public License, which may be found in the Perl 5.0 source kit.
>
>Complete documentation for Perl, including FAQ lists, should be found on
>this system using `man perl' or `perldoc perl'. If you have access to the
>Internet, point your browser at http://www.perl.com/, the Perl Home Page.
>
>$ gdiff -u env.t;-1 env.t
>--- env.t;-1 Tue Feb 15 14:16:49 2000
>+++ env.t Tue Feb 15 14:18:44 2000
>@@ -27,7 +27,7 @@
> print "ok 1\n";
>
> print "not " if $BAR ne 'bar/baz';
>-print "ok 2\n";
>+print "ok 2 # \$BAR=$BAR \n";
>
> if ($^O eq 'VMS') {
> print "ok 3 # skipped\n";
>
>_______________________________________________
>Craig A. Berry
>mailto:[EMAIL PROTECTED]
+--------------------------------------------------------------+
| Gregor N. Purdy [EMAIL PROTECTED] |
| |
| Swiss army chainsaw operator. y2k: perl -pe 'tr/yY/kK/' |
+--------------------------------------------------------------+
