TheCloud/panda3d
1
0
Fork 0
mirror of https://github.com/panda3d/panda3d.git synced 2025-10-03 10:22:45 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix for perl 5.8

Browse Source
This commit is contained in:
David Rose 2003-02-07 00:56:51 +00:00
parent 3513cf8684
commit 0fc2d43007
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dtool/src/attach/ctattch.pl
View File

@ -417,7 +417,7 @@ sub CTAttachCompute {
foreach $item ( keys %localcmd ) {
$envcmd{$item} = $localcmd{$item} ;
}
foreach $item ( keys %localdo ) {
for ($item = 0; $item < $localdocnt; $item++) {
$envdo{$docnt} = $localdo{$item} ;
$docnt++ ;
}
@ -492,7 +492,7 @@ sub CTAttachWriteScript {
}
}
}
foreach $item ( keys %envdo ) {
for ($item = 0; $item < $docnt; $item++) {
print OUTFILE $envdo{$item} . "\n" ;
if ( $ctdebug ) {
print OUTFILE "echo doing '" . $envdo{$item} . "'\n" ;