summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/convert
blob: f860392977563361065844def2a67a401ce7f771 (plain)
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);
}