summaryrefslogtreecommitdiffstats
path: root/perl-install/Makefile
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-12-02 15:03:43 +0000
committerFrancois Pons <fpons@mandriva.com>1999-12-02 15:03:43 +0000
commitf0cee665246a89d69530d4100da0274d56b8f5ec (patch)
tree35f5401c275c0d9279d4f3e0f91ac99d147f8e55 /perl-install/Makefile
parent7150824031e79b1cc1f5c9accd181b8b0488eaff (diff)
downloaddrakx-f0cee665246a89d69530d4100da0274d56b8f5ec.tar
drakx-f0cee665246a89d69530d4100da0274d56b8f5ec.tar.gz
drakx-f0cee665246a89d69530d4100da0274d56b8f5ec.tar.bz2
drakx-f0cee665246a89d69530d4100da0274d56b8f5ec.tar.xz
drakx-f0cee665246a89d69530d4100da0274d56b8f5ec.zip
*** empty log message ***
Diffstat (limited to 'perl-install/Makefile')
-rw-r--r--perl-install/Makefile2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 89c54cfd1..ab5257684 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -120,7 +120,7 @@ get_needed_files: $(DIRS)
cp -a keymaps $(DEST)/usr/share
cp -a consolefonts $(DEST)/usr/share
- cp *.in modparm.lst $(DEST)/usr/share
+ cp template.in/*.in modparm.lst $(DEST)/usr/share
cp MonitorsDB $(DEST)/usr/X11R6/lib/X11
cp logo-mandrake.xpm $(DEST)/usr/share
cp -a themes $(DEST)/usr/share/gtk
"hl str">"\0" x $pagesize; # Maximum allowable number of pages in one swap. # From 2.2.0 onwards, this depends on how many offset bits # the architectures can actually store into the page tables # and on 32bit architectures it is limited to 2GB at the # same time. # Old swap format keeps the limit of 8*pagesize*(pagesize - 10) 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 * $sizeof_int - 10) / $sizeof_int; my $signature_format_v1 = "x1024 I I I I125"; #- bootbits, version, last_page, nr_badpages, padding 1; sub kernel_greater_or_equal($$$) { c::kernel_version() =~ /(\d*)\.(\d*)\.(\d*)/; ($1 <=> $_[0] || $2 <=> $_[1] || $3 <=> $_[2]) >= 0; } sub check_blocks { my ($fd, $version, $nbpages) = @_; my ($last_read_ok, $badpages) = (0, 0); my ($buffer); my $badpages_field_v1 = \substr($signature_page, psizeof($signature_format_v1)); for (my $i = 0; $i < $nbpages; $i++) { $last_read_ok || sysseek($fd, $i * $pagesize, 0) or die "seek failed"; unless ($last_read_ok = sysread($fd, $buffer, $pagesize)) { if ($version == 1) { $badpages == $MAX_BADPAGES and die "too many bad pages"; vec($$badpages_field_v1, $badpages, $bitof_int) = $i; } $badpages++; } vec($signature_page, $i, 1) = to_bool($last_read_ok) if $version == 0; } #- TODO: add interface $badpages and log::l("$badpages bad pages\n"); return $badpages; } sub make($;$) { my ($devicename, $checkBlocks) = @_; my $tmpdev = 0; my $badpages = 0; my ($version, $maxpages); $devicename = devices::make($devicename); my $nbpages = divide(devices::size($devicename), $pagesize);