"Not a CODE" reference error perl v5.10.0, Deprecated assignment operation.
Perl v5.10. SLES 11. Deprecated assignment.
my( $sym ) = $AEDefines::{$def}; // doing such an assignment will results in a error as the bug will make ,$AEDefines::{$def}; to be interpreted as a scalar , which is deprecated (and causing testing to fail ) $rc = &ck_set( $ck_ref, CK_SERVER | CK_OS, &$sym ); <"Not a CODE reference, error hit here this was fixed by changing to assignment as in the following: elsif( $tempos =~ /LINUX/ ) { # Scan through the list of Linuxes to pick out the # correct one. foreach $def ( sort( keys( %AEDefines:: ) ) ) { if( $def =~ /^OS_(.*)/) { if( $tempos =~ /$1/ ) { $sym = $def; $rc = &ck_set( $ck_ref, CK_SERVER | CK_OS, &$sym ); } } } } |
Was there a question here? If so could you please rephrase it and use code blocks around your source next time please.
|
Quote:
use strict; use warnings; in the beginning of your program - unless you've already done so. And get rid of all error messages during compilation, and then get rid of all runtime warnings and errors before the one in question. Where is the 'ck_set' function defined ? Publish full code here. |
Thanks for getting to me on this. I actually got this resolved,
I was hoping "Not a CODE reference" was a perl error with known list of causes. The ck_set (connection key set) method was being passed an invalid value when setting my( $sym ) = $AEDefines::{$def} I'll keep the post cleaner next time :) |
All times are GMT -5. The time now is 12:42 AM. |