Data::Dumper confusion

[swen]

the code:

use Data:umper;

 

[Bob Walton]

the code:

use Data:umper;
.
.
.
$Data:umper::Useqq = 1; # i have also tried with a setting of 0
my $search = eval(Dumper($params));
print "addSearch(): Dumper(\$params) = ".Dumper($params);
print "addSearch(): Dumper(\$search) = ".Dumper($search);
print "addSearch(): Dumper(eval(Dumper(\$params))) =
".Dumper(eval(Dumper($params)));

the output (you can also see what $params contains):

addSearch(): Dumper($params) = $VAR1 = {
"returnFields" => [
"pr.status",
"pr.requestor"
],
"searchFields" => [
{
"and_or" => "and",
"name" => "pr.status"
}
]
};
addSearch(): Dumper($search) = $VAR1 = undef;
addSearch(): Dumper(eval(Dumper($params))) = $VAR1 = undef;

Can someone tell me why the eval returns undef? I'm missing something.

That's not what I get with your code verbatim (Windoze 98SE, AS build 806):

D:\junk>perl junk391.pl
addSearch(): Dumper($params) = $VAR1 = {
"searchFields" => [
{
"name" => "pr.status",
"and_or" => "and"
}
],
"returnFields" => [
"pr.status",
"pr.requestor"
]
};
addSearch(): Dumper($search) = $VAR1 = {
"searchFields" => [
{
"name" => "pr.status",
"and_or" => "and"
}
],
"returnFields" => [
"pr.status",
"pr.requestor"
]
};
addSearch(): Dumper(eval(Dumper($params))) =
$VAR1 = {
"searchFields" => [
{
"name" => "pr.status",
"and_or" => "and"
}
],
"returnFields" => [
"pr.status",
"pr.requestor"
]
};

D:\junk>

Code I used:

$params = {
"returnFields" => [
"pr.status",
"pr.requestor"
],
"searchFields" => [
{
"and_or" => "and",
"name" => "pr.status"
}
]
};
use Data:umper;
$Data:umper::Useqq = 1; # i have also tried with a setting of 0
my $search = eval(Dumper($params));
print "addSearch(): Dumper(\$params) = ".Dumper($params);
print "addSearch(): Dumper(\$search) = ".Dumper($search);
print "addSearch(): Dumper(eval(Dumper(\$params))) =
".Dumper(eval(Dumper($params)));