always return filename from grep
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 29 Jan 2015 12:21:06 +0000 (13:21 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 29 Jan 2015 12:21:06 +0000 (13:21 +0100)
gnt-i

diff --git a/gnt-i b/gnt-i
index 4d85f48..92fd314 100755 (executable)
--- a/gnt-i
+++ b/gnt-i
@@ -59,7 +59,7 @@ sub DD_hh_mm_ss {
                $t_sec *= $f[$i];
        }
 
-       warn "# DD-hh:mm:ss $t -> $t_sec\n" if $DEBUG;
+#      warn "# DD-hh:mm:ss $t -> $t_sec\n" if $DEBUG;
        return $t_sec;
 }
 
@@ -104,11 +104,11 @@ while(<$ps>) {
 }
 
 
-my $tap = sh('grep . /var/run/ganeti/kvm-hypervisor/nic/*/*');
+my $tap = sh('grep -H . /var/run/ganeti/kvm-hypervisor/nic/*/*');
 while(<$tap>) {
        chomp;
-#      warn "## tap $_\n";
        my @p = split(/\//,$_);
+#      warn "## tap ", Dumper( \@p ), "$_\n";
        push @{ $instance_tap->{$hostname}->{ $p[-2] } }, $p[-1];
 
        my $if = $p[-1];