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