Commit 9d0a5368 authored by Mike Hibler's avatar Mike Hibler

Hack to shutup perl 5.12 about unused SOUT variable.

The perl warnings can screw up some of our scripts which expect certain
output; e.g., users of "setsitevar -c" expect to see the value of a sitevar
and not some nagging perl message.

Don't want to remove SOUT altogether since I don't know how that will
affect the regular libtblog (which includes libtblog_simple). So I just
threw in an "if (0)" which prints to SOUT...
parent 84572430
......@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2005, 2010 University of Utah and the Flux Group.
# Copyright (c) 2005-2012 University of Utah and the Flux Group.
# All rights reserved.
#
......@@ -169,6 +169,10 @@ sub tblog( $@ ) {
my $res = dblog($priority, $parms, $mesg) unless $mesg =~ /^\s+$/;
# XXX argh! Keep perl from complaining about unused SOUT var
if (0) {
print SOUT format_message(scriptname(), $priority, $mesg);
}
print SERR format_message(scriptname(), $priority, $mesg);
return $res;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment