##
C:\temp>perl -wc index.pl
Name "main::ccdrive" used only once: possible typo at index.pl line 4.
Name "main::name" used only once: possible typo at index.pl line 68.
Name "main::rephash" used only once: possible typo at index.pl line 158.
index.pl syntax OK
##
##
$ccdrive = $ENV{CC_DEFAULT_DRIVE};
##
##
$name=$hash{"Tag"};
##
##
print TFILE2 " $ABC[$idx]  ";
##
##
print TFILE2 " $ABC[$idx] ";
##
##
print TFILE2 " $rephash{$replica} $DEF[$idx]  ";
##
##
print TFILE2 " $rephash{$replica} $DEF[$idx] ";