move location generation to avoid warning

diff --git a/gnt-monitor b/gnt-monitor
index e125857..abac8d7 100755 (executable)
--- a/gnt-monitor
+++ b/gnt-monitor
@@ -13,7 +13,11 @@ my $RACK = $ENV{RACK};
 my $node = `hostname -s`;
 chomp $node;
 
-warn $0 = "gnt-monitor\@$node $DC $RACK $INFLUX $INTERVAL $DEBUG";
+my $location = '';
+$location .= qq{,dc=$DC} if $DC;
+$location .= qq{,rack=$RACK} if $RACK;
+
+warn $0 = "gnt-monitor\@$node$location $INFLUX $INTERVAL $DEBUG";
 
 use Data::Dump;
 sub XXX { $DEBUG ? warn "XXX ",Data::Dump::dump( @_ ) : {} };
@@ -160,10 +164,6 @@ foreach my $instance ( keys %$stat ) {
 
        next if $skip->{$instance};
 
-       my $location = '';
-       $location .= qq{,dc=$DC} if $DC;
-       $location .= qq{,rack=$RACK} if $RACK;
-
        print $fh qq{cpu,node=$node,instance=$instance$location cpu=}, $stat->{$instance}->{cpu}, "\n";
 
        foreach my $disk ( @{ $stat->{$instance}->{disk} } ) {