diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Makefile | 3 | ||||
| -rw-r--r-- | perl-install/swap.pm | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile index dd6b426b9..44a613bcc 100644 --- a/perl-install/Makefile +++ b/perl-install/Makefile @@ -125,6 +125,9 @@ endif for i in fonts keyboards locales keymaps; do tar xfj `../tools/specific_arch share/$$i.tar.bz2` -C $(DEST); done +# # temporary hack to have at least good UTF-8 based locales (otherwise rpmlib segfaults) + cd $(DEST)/usr/share/locale/UTF-8 ; for i in `find -type f`; do cp -f /usr/share/locale/en/$$i $$i; done + grep ChangeLog CVS/Entries > $(DEST)/usr/share/VERSION gzip -9f $(DEST)/usr/share/ldetect-lst/* diff --git a/perl-install/swap.pm b/perl-install/swap.pm index 2c26485ea..7b7597c10 100644 --- a/perl-install/swap.pm +++ b/perl-install/swap.pm @@ -3,6 +3,7 @@ package swap; # $Id$ use diagnostics; use strict; +use MDK::Common::DataStructure; use common; use log; use devices; @@ -100,14 +101,14 @@ sub make($;$) { $version == 0 and !vec($signature_page, 0, 1) and die "bad block on first page"; vec($signature_page, 0, 1) = 0; - $version == 1 and strcpy($signature_page, pack($signature_format_v1, $version, $nbpages - 1, $badpages)); + $version == 1 and MDK::Common::DataStructure::strcpy($signature_page, pack($signature_format_v1, $version, $nbpages - 1, $badpages)); my $goodpages = $nbpages - $badpages - 1; $goodpages > 0 or die "all blocks are bad"; log::l("Setting up swapspace on $devicename version $version, size = " . $goodpages * $pagesize . " bytes"); - strcpy($signature_page, $version == 0 ? "SWAP-SPACE" : "SWAPSPACE2", $pagesize - 10); + MDK::Common::DataStructure::strcpy($signature_page, $version == 0 ? "SWAP-SPACE" : "SWAPSPACE2", $pagesize - 10); my $offset = ($version == 0) ? 0 : 1024; sysseek(F, $offset, 0) or die "unable to rewind swap-device: $!"; |