From dda4f488fa1551ff158f67045c9369c7eaff25b5 Mon Sep 17 00:00:00 2001 From: rjray Date: Sun, 31 Jul 2005 10:34:39 +0000 Subject: [PATCH] Eliminated the source of some "Modification of a read-only value..." errors. Patch from Juan Camacho. --- t/10_data.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/10_data.t b/t/10_data.t index 059f323..2c03bfb 100644 --- a/t/10_data.t +++ b/t/10_data.t @@ -31,12 +31,12 @@ for (sort keys %val_tbl) } # 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__); +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") + '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") ); for (sort keys %val_tbl)