Changeset 4282 for lang/perl

Show
Ignore:
Timestamp:
01/09/08 19:29:28 (7 years ago)
Author:
cho45
Message:

lang/perl/Config-Pit/trunk/lib/Config/Pit.pm:

Add local not to violate global env.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Config-Pit/trunk/lib/Config/Pit.pm

    r4274 r4282  
    2424        my ($name, %opts) = @_; 
    2525        my $profile = _load(); 
    26         $YAML::Syck::ImplicitTyping = 1; 
    27         $YAML::Syck::SingleQuote    = 1; 
     26        local $YAML::Syck::ImplicitTyping = 1; 
     27        local $YAML::Syck::SingleQuote    = 1; 
    2828         
    2929        if ($opts{require}) { 
     
    4040        my ($name, %opts) = @_; 
    4141        my $result = {}; 
    42         $YAML::Syck::ImplicitTyping = 1; 
    43         $YAML::Syck::SingleQuote    = 1; 
     42        local $YAML::Syck::ImplicitTyping = 1; 
     43        local $YAML::Syck::SingleQuote    = 1; 
    4444 
    4545        if ($opts{data}) { 
     
    6969sub switch { 
    7070        my ($name, %opts) = @_; 
    71         $YAML::Syck::ImplicitTyping = 1; 
    72         $YAML::Syck::SingleQuote    = 1; 
     71        local $YAML::Syck::ImplicitTyping = 1; 
     72        local $YAML::Syck::SingleQuote    = 1; 
    7373 
    7474        $name ||= "default"; 
     
    8686sub _load { 
    8787        my $config = _config(); 
    88         $YAML::Syck::ImplicitTyping = 1; 
    89         $YAML::Syck::SingleQuote    = 1; 
     88        local $YAML::Syck::ImplicitTyping = 1; 
     89        local $YAML::Syck::SingleQuote    = 1; 
    9090 
    9191        switch($config->{profile}); 
     
    9898 
    9999sub _config { 
    100         $YAML::Syck::ImplicitTyping = 1; 
    101         $YAML::Syck::SingleQuote    = 1; 
     100        local $YAML::Syck::ImplicitTyping = 1; 
     101        local $YAML::Syck::SingleQuote    = 1; 
    102102 
    103103        (-e $directory) || $directory->mkpath(0, 0700);