SI/ptable.pm
branch2010-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} = {};
 	}
 
     }