You have a capital S in your string, but your sub starts with a lower case
s...unless one was a typo
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, January 14, 2002 2:47 PM
Subject: Eval not working!!
>
> This is a question using eval.
>
> Below is some test code using eval.
> It worked. A function call was loaded to a variable ($func_name)
> and eval calls the function and passes the variables.
>
>
> $func_name = "&make_shift"; ## load the function call and its name
>
> push(@data, eval"$func_name(4,5,6)"); ## call function and load results
in @data
>
> print "This is data @data \n"; # prints "This is data help is on the
way 1 2 3"
>
> sub make_shift() {
> my($a,$b,$c) = @_;
>
> print "please help \n";
> return "help is on the way $a $b $c \n";
>
> }
>
>
>
> ***************************************************
> I used the same logic at work and the eval does NOT respond.
> I used ACTIVESTATE's debuger, and it shows all variables have values,
> including the $setf, yet the eval does nothing.
>
> $setf = "&SetFieldGG";
>
> &preprint;
>
>
> sub preprint {
>
> # a lot of code
> ....
>
> push(@data, eval"$setf($FIELD{$key}, $dataStr, $flagBold, $flagNoWord)");
>
> }
>
> sub setFieldGG { <<-- This is not called
> local($Field, $Str, $Flag, $FlagNoWordWrap) = @_;
>
> .....
>
> }
>
>
>
>
> What am I doing wrong?
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
