With these changes plus my previous patch, all but 1 test in basic.t works for
me. The patch fixes a bug in neat() whereby neat("2") was returning "''". I've
also ported a usage of foreach() to Perl 5.004 syntax and added quotes around
hash keys to eliminate warnings under that tried and true Perl release.
The test that fails is number 7, "$switch->{'Attribution'} =~ m/DBI.*? by Tim
Bunce/". Here is what I get for Attribution:
$ DBI_PUREPERL=2 ~/local/bin/perl -I ~/Test -MDBI -le 'print
DBI->internal->{Attribution}'
/home/tobey/Test/DBI/PurePerl.pm at /home/tobey/Test/DBI/PurePerl.pm line 28.
CODE(0x23c978)
Thanks.
-John
(See attached file: fix.diff)
fix.diff
Description: Binary data
