Hi, Line 224 is the while (($key,$value ........ & the script output the SOR message, the "Processing ISWTEST message & the EOR message if I remove the use strict. The while ($key.... is not actioned, I put a toytown display in their and it never appeared. If I leave the use strict in I get
<***** SOR ACC_ORACLE_ENV *****>
Processing ISWTEST Environment.
Can't use string ("ISWTEST") as a HASH ref while "strict refs" in use at xxrc_new_profile.pl line 224.
It would seem that this is the piece of offending code but I still can't see why -
while (($key,$value) = each %$DB_name) {
print "\tKey :: $key\n" ;
print "\tValue :: $value\n" ;
}
Cheers,
Ronnie | [reply] [d/l] |