TheCloud/panda3d
1
0
Fork 0
mirror of https://github.com/panda3d/panda3d.git synced 2025-10-04 10:54:24 -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 ) { foreach $item ( keys %localcmd ) {
$envcmd{$item} = $localcmd{$item} ; $envcmd{$item} = $localcmd{$item} ;
} }
foreach $item ( keys %localdo ) { for ($item = 0; $item < $localdocnt; $item++) {
$envdo{$docnt} = $localdo{$item} ; $envdo{$docnt} = $localdo{$item} ;
$docnt++ ; $docnt++ ;
} }
@ -492,7 +492,7 @@ sub CTAttachWriteScript {
} }
} }
} }
foreach $item ( keys %envdo ) { for ($item = 0; $item < $docnt; $item++) {
print OUTFILE $envdo{$item} . "\n" ; print OUTFILE $envdo{$item} . "\n" ;
if ( $ctdebug ) { if ( $ctdebug ) {
print OUTFILE "echo doing '" . $envdo{$item} . "'\n" ; print OUTFILE "echo doing '" . $envdo{$item} . "'\n" ;