check counts for snapshots

lib/Site/ZFSSnapshot.pm

@@ -57,23 +57,23 @@ sub handler {
     my ($when,$age) = (0,`date '+%s'`);
     chomp $age; $age -= $when;
     my $line = '';
+    my ($count,$list);
     my $LIST = "/usr/sbin/zfs list -H -p -o creation -S creation -d 1 -t snapshot $zfs 2>&1";
-    open (my $list, "-|", $LIST)or die "can't run $LIST: $!";
-    while (<$list>) {
+    open ($list, "-|", $LIST)or die "can't run $LIST: $!";
 =pod
 1469459040
 =cut
-      chomp;
+    if (($_ = <$list>) && ($_ =~ m/^(\d+)$/)){
+      $when = $1;
+      $age = `$DATE '+%s'` - $when; 
       $line = $_ if $_;
-      if (/^(\d+)$/){
-        $when = $1;
-        $age = `$DATE '+%s'` - $when; 
-        last;
-      }
+      while ( <$list> ) {};
+      $count = $.;
     }
     return {
-      "age"     => [$age,  "i"],
-      "line"    => [$line, "s"]
+      "age"     => [$age,   "i"],
+      "count"   => [$count, "i"],
+      "line"    => [$line,  "s"]
     }
 }