--- recepies/zfs/zfs-expire-snapshot.pl	2011/05/15 00:08:10	262
+++ recepies/zfs/zfs-expire-snapshot.pl	2011/05/26 18:22:29	263
@@ -6,7 +6,7 @@
 use DateTime;
 use Data::Dump qw/dump/;
 
-my $debug = 0;
+my $debug = $ENV{DEBUG} || 0;
 
 my $config = {
 	'default' => {
@@ -28,7 +28,7 @@
 
 my $last_backup;
 
-open(my $fs, '-|', 'zfs list -H');
+open(my $fs, '-|', 'zfs list -t snapshot -H');
 while(<$fs>) {
 	chomp;
 	my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);