Changeset 4311 for lang/perl/Config-Pit

Show
Ignore:
Timestamp:
01/10/08 00:31:30 (6 years ago)
Author:
cho45
Message:

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

use print STDERR instead of warn to avoid backtrace.

Files:
1 modified

Legend:

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

    r4310 r4311  
    2626        local $YAML::Syck::ImplicitTyping = 1; 
    2727        local $YAML::Syck::SingleQuote    = 1; 
    28          
     28 
    2929        if ($opts{require}) { 
    3030                unless (all { defined $profile->{$name}->{$_} } keys %{$opts{require}}) { 
     
    8080        $config->{profile} = $name; 
    8181        YAML::Syck::DumpFile($config_file, $config); 
    82         warn "Config::Pit: profile switch to $name from $ret."; 
     82        print STDERR "Config::Pit: Profile switch to $name from $ret.\n"; 
    8383        return $ret; 
    8484} 
    8585 
    8686sub pipe { 
    87         -t STDOUT ? warn 'do not output to tty.' :  print Dump(get(shift)), "\n"; ## no critic 
     87        -t STDOUT ? print STDERR 'do not output to tty.' :  print Dump(get(shift)), "\n"; ## no critic 
    8888} 
    8989