branch | 2010-01-17 |
changeset 10 | 23dd30396607 |
parent 7 | 03ca6d811a17 |
child 12 | a1aee1136609 |
--- 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} = {}; } }