changeset 11 | 42c603eb6301 |
parent 10 | 23dd30396607 |
child 12 | a1aee1136609 |
--- a/SI/ptable.pm Sun Jan 17 00:03:04 2010 +0100 +++ b/SI/ptable.pm Sun Jan 17 16:40:08 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} = {}; } }