diff -r 03ca6d811a17 -r 23dd30396607 SI/ptable.pm --- a/SI/ptable.pm Sat Jan 16 23:53:50 2010 +0100 +++ b/SI/ptable.pm Sun Jan 17 12:13:47 2010 +0100 @@ -1,11 +1,12 @@ package SI::ptable; +use if $ENV{DEBUG} ~~ /ptable|all/ => qw(Smart::Comments); + use strict; use warnings; use File::Find; use IO::File; -use if $ENV{DEBUG} ~~ /ptable|all/ => qw(Smart::Comments); use SI::tools; $ENV{LC_ALL} = "C"; @@ -44,7 +45,7 @@ print $of "$_\n"; if (/^(\/dev\/\S+)\s*:/) { - $devs->{volume}{$1} = undef; + $devs->{volume}{$1} = {}; } }