RPC::XML の make test が通らない件

同一環境上で、RPC::XML 0.58 のインストールを試みたが、perl 5.8.0 では make test が通るが、perl 5.8.8 では make test が通らない。

% perl -I./lib t/10_data.t

1..151
# Running under perl version 5.008008 for linux
# Current time local: Mon Jun  5 21:47:14 2006
# Current time GMT:   Mon Jun  5 12:47:14 2006
# Using Test.pm version 1.25
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
Modification of a read-only value attempted at t/10_data.t line 35.

むむ？

で、Line 33-40 の内容。

# Go again, with each of the values being a blessed scalar reference
my @vals = ?(int(rand 10000) + 1, int(rand 10000) + 1, rand 10001, __FILE__);
%val_tbl = (
            'int'  => bless(shift(@vals), "Tmp::Scalar::Int"),
            i4     => bless(shift(@vals), "Tmp::Scalar::I4"),
            double => bless(shift(@vals), "Tmp::Scalar::Double"),
            string => bless(shift(@vals), "Tmp::Scalar::String")
           );

__FILE__ は、どっかの時点で readonly になったらしい。

仕方ないので・・・下記のように書き換えてみた。

# Go again, with each of the values being a blessed scalar reference
my $file_name = __FILE__;
my @vals = ?(int(rand 10000) + 1, int(rand 10000) + 1, rand 10001, $file_name,);

いや、test script 書き換えてまで make test 通す必要ないんだけどね（w；