the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
if $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($m
as the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
if $scalar_util_ok;
isnt(refaddr($got), refaddr($m),
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg")
2 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg");
isnt(refaddr($got[0]), refaddr($m),
, 2 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
isnt(refaddr($got), refaddr($m),
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
($LIB->_str($got[0]), $out0,
"'$test' first output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' first output arg is not the second input arg
$LIB->_str($got[1]), $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[1]), refaddr($y),
"'$test' second output arg is not the second input ar
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' first output arg is not the second input
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[1]), refaddr($y),
"'$test' second output arg is not the second inpu
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the third input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($x),
"'$test' output arg is not the input arg")
if
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
($LIB->_str($got[0]), $out0,
"'$test' first output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the third input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got[0]), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
is($LIB->_str($got), $out0,
"'$test' output arg has the right value");
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")