Subversion Repositories DevTools

Rev

Rev 367 | Rev 371 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 367 Rev 369
Line 3604... Line 3604...
3604 
 
 3604 
 
3605 
        no strict 'vars';
 3605 
        no strict 'vars';
3606 
        local *sym = $main::{$symname};
 3606 
        local *sym = $main::{$symname};
3607 
 
 3607 
 
3608 
        $cf_build_info{"\$$symname"} =  $sym if defined $sym;
 3608 
        $cf_build_info{"\$$symname"} =  $sym if defined $sym;
3609 
        $cf_build_info{"\@$symname"} = \@sym if defined @sym;
 3609 
        $cf_build_info{"\@$symname"} = \@sym if @sym;
3610 
        $cf_build_info{"\%$symname"} = \%sym if defined %sym;
 3610 
        $cf_build_info{"\%$symname"} = \%sym if %sym;
3611 
        use strict 'vars';
 3611 
        use strict 'vars';
3612 
    }
 3612 
    }
3613 
 
 3613 
 
3614 
    #
 3614 
    #
3615 
    #   Dump out the configuration information
 3615 
    #   Dump out the configuration information