|
|
Hi, I am new to perl..
I am getting following warning.
untie attempted while 1 inner references still exist
my code is:
while ($i++ < 5) {
$db = tie(%FILE_NAMES, 'SDBM_File', $tName, O_RDWR|O_CREAT, 0666)
or die "Cannot open $tName: $!\n" ;
$FILE_NAMES{'GAPSOUT'} = $fileName;
$fileRecall = $FILE_NAMES{'GAPSOUT'};
if ($fileRecall eq $fileName) {
print "$i: DB update successful: $fileName\n";
last;
} else {
print "$i: DB update failed: sleep (1): try again\n";
sleep (1);
}
}
untie %FILE_NAMES;
How i can avoid this warning.
Thanks..
|
|
|
|
|
|
|
// |
vasulu
