perl-install/standalone/convert


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use Storable;
use MDK::Common::File qw(cat_);
 
my $last_boot_config = "/etc/sysconfig/harddrake2/previous_hw";
 
if (cat_($last_boot_config) !~ /^pst0/) {
    my $config = do $last_boot_config;
    store($config, $last_boot_config);
}