diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:39:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:39:28 +0000 |
| commit | b60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch) | |
| tree | 783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/swap.pm | |
| parent | 0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff) | |
| download | drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2 drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip | |
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/swap.pm')
| -rw-r--r-- | perl-install/swap.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/swap.pm b/perl-install/swap.pm index ed0669f8e..2c26485ea 100644 --- a/perl-install/swap.pm +++ b/perl-install/swap.pm @@ -3,7 +3,7 @@ package swap; # $Id$ use diagnostics; use strict; -use common qw(:common :system :constant); +use common; use log; use devices; use c; @@ -22,7 +22,7 @@ my $signature_page = "\0" x $pagesize; my $V0_MAX_PAGES = 8 * $pagesize - 10; my $V1_OLD_MAX_PAGES = int 0x7fffffff / $pagesize - 1; my $V1_MAX_PAGES = $V1_OLD_MAX_PAGES; #- (1 << 24) - 1; -my $MAX_BADPAGES = int ($pagesize - 1024 - 128 * $common::sizeof_int - 10) / $common::sizeof_int; +my $MAX_BADPAGES = int ($pagesize - 1024 - 128 * $sizeof_int - 10) / $sizeof_int; my $signature_format_v1 = "x1024 I I I I125"; #- bootbits, version, last_page, nr_badpages, padding 1; @@ -49,7 +49,7 @@ sub check_blocks { } $badpages++; } - vec($signature_page, $i, 1) = bool($last_read_ok) if $version == 0; + vec($signature_page, $i, 1) = to_bool($last_read_ok) if $version == 0; } #- TODO: add interface |