TheCloud/panda3d
1
0
Fork 0
mirror of https://github.com/panda3d/panda3d.git synced 2025-10-02 09:52:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

more debugging

Browse Source
This commit is contained in:
Cary Sandvig 2001-02-02 23:09:34 +00:00
parent a204258dd3
commit 00cc234397
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,11 +91,18 @@ sub CTAttachMod {
$newenv{$_[0]} = &CTSpoolEnv( $_[0] ) ;
}
if ( ! ( $newenv{$_[0]} =~ /$_[1]/ )) {
&CTUDebug( "'" . $_[1] . "' exists in " . $_[0] .
" testing for simple modification\n" ) ;
# if it's in there already, we're done before we started.
if ( $_[1] =~ /^$_[2]/ ) {
&CTUDebug( "new value contains root '" . $_[2] .
"', may not be able to do simple edit\n" ) ;
# damn, might need to do an in-place edit
local( $curroot ) = $ENV{$_[3]} ;
&CTUDebug( "current root for '" . $_[3] . "' is '" .
$curroot . "'\n" ) ;
if ( $curroot eq "" ) {
&CTUDebug( "can do simple edit\n" ) ;
$dosimple = 1 ;
} else {
local( $test ) = $_[1] ;
@ -110,10 +117,14 @@ sub CTAttachMod {
$_[1] . "' yielding '" . $foo . "'\n" ) ;
$newenv{$_[0]} = $foo ;
} else {
&CTUDebug( "'" . $test . "' did not appear in $_[0]." .
" Simple edit\n" ) ;
$dosimple = 1 ;
}
}
} else {
&CTUDebug( "new value does not contain root '" . $_[2] .
"', can do simple edit\n" ) ;
# don't have to sweat in-place edits
$dosimple = 1 ;
}