1 package SI::ptable;

     2 

     3 use strict;

     4 use warnings;

     5 

     6 use SI::tools;

     7 

     8 sub save($) {

     9 	my $file = shift;

    10 	run "sfdisk -d >$file 2>/dev/null";

    11 }

    12 

    13 1;