summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-31 16:48:27 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-31 16:48:27 +0000
commitdef4efcd013dab2d39ca559f61df55ff60864157 (patch)
tree0fcb4681f9e329f5aebb0b2407387279e25e7924 /perl-install
parent290e279a5c8ca9fd0533264f57d4df58b7431de3 (diff)
downloaddrakx-backup-do-not-use-def4efcd013dab2d39ca559f61df55ff60864157.tar
drakx-backup-do-not-use-def4efcd013dab2d39ca559f61df55ff60864157.tar.gz
drakx-backup-do-not-use-def4efcd013dab2d39ca559f61df55ff60864157.tar.bz2
drakx-backup-do-not-use-def4efcd013dab2d39ca559f61df55ff60864157.tar.xz
drakx-backup-do-not-use-def4efcd013dab2d39ca559f61df55ff60864157.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Makefile9
-rwxr-xr-xperl-install/perl2etags8
2 files changed, 15 insertions, 2 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile
index d4e7e68c0..eb0a1d48f 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -19,7 +19,7 @@ override CFLAGS += -pipe
all: $(SO_FILES) $(DIRS)
tags:
- etags -o - $(PMS) | perl2etags > TAGS
+ etags -o - $(PMS) | ./perl2etags > TAGS
clean:
test ! -e c/Makefile || $(MAKE) -C c clean
@@ -163,10 +163,15 @@ full_stage2:
stage2:
$(MAKE) install_pms
- dd if=/dev/zero of=$(STAGE2) bs=1M count=16
+ dd if=/dev/zero of=$(STAGE2) bs=1M count=12
echo y | /sbin/mke2fs $(STAGE2)
$(SUDO) mount $(STAGE2) /mnt/stage2 -o loop
+
+# hack to reduce the STAGE2 image
+ mv $(DEST)/usr/X11R6/bin/XF86_SVGA /tmp
$(SUDO) cp -a $(DEST)/* /mnt/stage2
+ mv /tmp/XF86_SVGA $(DEST)/usr/X11R6/bin/
+
$(SUDO) umount $(STAGE2)
gzip -f -9 $(STAGE2)
# cd $(ROOTDEST) ; tar cfz /tmp/instimage-full.tgz Mandrake
diff --git a/perl-install/perl2etags b/perl-install/perl2etags
new file mode 100755
index 000000000..7a15bf78c
--- /dev/null
+++ b/perl-install/perl2etags
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -p
+
+if (/^ / ... !/^ /) {
+ ($package) = /(.*).pm,/;
+ $package =~ s|/|::|g;
+}
+
+s/(\x7F)sub\s+(\w+)(\([^)]*\))?/$1${package}::$2/;