Changeset 4311

Timestamp:

01/10/08 00:31:30 (5 years ago)

Author:

cho45

Message:

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

use print STDERR instead of warn to avoid backtrace.

Files:

• lang/perl/Config-Pit/trunk/lib/Config/Pit.pm (modified) (2 diffs)

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

@@ -26 +26 @@
         local $YAML::Syck::ImplicitTyping = 1;
         local $YAML::Syck::SingleQuote    = 1;
-        
+
         if ($opts{require}) {
                 unless (all { defined $profile->{$name}->{$_} } keys %{$opts{require}}) {
@@ -80 +80 @@
         $config->{profile} = $name;
         YAML::Syck::DumpFile($config_file, $config);
-        warn "Config::Pit: profile switch to $name from $ret.";
+        print STDERR "Config::Pit: Profile switch to $name from $ret.\n";
         return $ret;
 }
 
 sub pipe {
-        -t STDOUT ? warn 'do not output to tty.' :  print Dump(get(shift)), "\n"; ## no critic
+        -t STDOUT ? print STDERR 'do not output to tty.' :  print Dump(get(shift)), "\n"; ## no critic
 }