Subversion Repositories DevTools

Rev

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

Rev 227 Rev 229
Line 44... Line 44...
44 
 
 44 
 
45 
    no strict 'refs';
 45 
    no strict 'refs';
46 
    unless ( defined( $$EnvVar ) ) {
 46 
    unless ( defined( $$EnvVar ) ) {
47 
        $$EnvVar = $ENV{ $EnvVar };
 47 
        $$EnvVar = $ENV{ $EnvVar };
48 
    }
 48 
    }
49 
    use strict;
 - 
 
50 
 
 49 
 
51 
    Error( "Environment Variable '$EnvVar' not defined." )
 50 
    Error( "Environment Variable '$EnvVar' not defined." )
52 
        unless( defined $$EnvVar );
 51 
        unless( defined $$EnvVar );
53 
 
 52 
 
- 
 
 53 
    use strict;
54 
    return 1;
 54 
    return 1;
55 
}
 55 
}
56 
 
 56 
 
57 
#-------------------------------------------------------------------------------
 57 
#-------------------------------------------------------------------------------
58 
# Function        : EnvImportOptional
 58 
# Function        : EnvImportOptional