10 use feature "switch";

    69 

    70 sub restore(\%) {

    71     my $devs = shift;

    72 

    73     foreach my $disk (keys %{$devs->{disk}}) {

    74 	verbose("restoring partition table of $disk\n");

    75 	die "I won't use the disk ($disk) I'm running on!" 

    76 	    if (stat $0)[0] ~~ [ map { (stat)[6] } map { "/dev/" . basename dirname $_ } glob ("/sys/block/" . basename($disk) . "/*/partition")];

    77 

    78 	    my $sfdisk = new IO::File "|sfdisk $disk >/dev/null"

    79 		or die "Can't open |sfdisk $disk: $!\n";

    80 	    print {$sfdisk} @{$devs->{disk}{$disk}{pt}};

    81 	    $sfdisk->close or die $? >> 8;

    82 	    run("partprobe $disk");

    83     }

    84 }

    85 

    86 sub mkfs(\%) {

    87     my $devs = shift;

    88     foreach my $volume ( keys %{$devs->{volume}} ) {

    89 	my $v = $devs->{volume}{$volume};

    90 	next if $v->{origin} ne "ptable";

    91 	warn $volume, "\n";

    92 	next if not defined $v->{type};

    93 	given ($v->{type}) {

    94 	    when(/ext\d/) {

    95 		my $label = defined $v->{label} ? $v->{label} : "";

    96 		my $uuid = defined $v->{uuid} ? $v->{uuid} : "";

    97 		run("mkfs -t $v->{type} -L '$label' -U '$uuid' $volume");

    98 	    };

    99 	    when("swap") {

   100 		my $label = defined $v->{label} ? $v->{label} : "";

   101 		my $uuid = defined $v->{uuid} ? $v->{uuid} : "";

   102 		run("mkswap -L '$label' -U '$uuid' $volume");

   103 	    };

   104 	};

   105 

   106     }

   107 

   108 }