Subversion Repositories DevTools

Rev

Rev 7300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7300 Rev 7308
Line 53... Line 53...
53 
{
 53 
{
54 
    my( $EnvVar ) = @_;
 54 
    my( $EnvVar ) = @_;
55 
 
 55 
 
56 
    EnvImportOptional ( $EnvVar, undef );
 56 
    EnvImportOptional ( $EnvVar, undef );
57 
 
 57 
 
- 
 
 58 
    no strict 'refs';
- 
 
 59 
    $EnvVar = 'main::' . $EnvVar;
58 
    Error( "Environment Variable '$EnvVar' not defined." )
 60 
    Error( "Environment Variable '$EnvVar' not defined." )
59 
        unless( defined ${$main::{$EnvVar}} );
 61 
        unless( defined ($$EnvVar) );
60 
 
 - 
 
61 
    return 1;
 62 
    return 1;
62 
}
 63 
}
63 
 
 64 
 
64 
#-------------------------------------------------------------------------------
 65 
#-------------------------------------------------------------------------------
65 
# Function        : EnvImportOptional
 66 
# Function        : EnvImportOptional
Line 77... Line 78...
77 
# Returns         : 1
 78 
# Returns         : 1
78 
#
 79 
#
79 
sub EnvImportOptional
 80 
sub EnvImportOptional
80 
{
 81 
{
81 
    my( $EnvVar, $DefaultValue ) = @_;
 82 
    my( $EnvVar, $DefaultValue ) = @_;
- 
 
 83 
    no strict 'refs';
82 
 
 84 
 
83 
    unless ( defined( ${$main::{$EnvVar}} ) ) {
 85 
    my $GlobalEnvVar = 'main::' . $EnvVar;
84 
 
 86 
 
- 
 
 87 
    unless ( defined( $$GlobalEnvVar ) ) {
85 
        my $value = $ENV{ $EnvVar };
 88 
        my $value = $::ENV{ $EnvVar };
86 
        $value = $DefaultValue unless ( defined $value );
 89 
        $value = $DefaultValue unless ( defined $value );
87 
        ${$main::{$EnvVar}} = $value;
 90 
        $$GlobalEnvVar = $value;
88 
    }
 91 
    }
89 
    return 1;
 92 
    return 1;
90 
}
 93 
}
91 
 
 94 
 
92 
1;
 95 
1;
93
96
- 
 
 97