From c47149be5f3622c19695a8fd4810b524ac13af22 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sun, 15 Dec 1996 07:49:20 -0800
Subject: [PATCH] now makes better tar files
Rev: bin/export.pike:1.3
---
bin/export.pike | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/bin/export.pike b/bin/export.pike
index 56d19efdad..8ec4dc03e6 100755
--- a/bin/export.pike
+++ b/bin/export.pike
@@ -52,7 +52,7 @@ int main(int argc, string *argv)
mixed tmp;
int e;
string *files;
- string s=replace(version()," ","_");
+ string s=replace(version()," ","-");
tmp=reverse(argv[0]/"/");
except_modules=mklist(argv[1..]);
@@ -73,14 +73,17 @@ int main(int argc, string *argv)
if(file_size("pike/src/modules/"+tmp) == -2)
fix_configure("modules/"+tmp);
- files=sum(({ "pike/README" }),
- get_files("pike/src"),
- get_files("pike/doc"),
- get_files("pike/lib"),
- get_files("pike/bin"));
+ system("ln -s pike "+s);
+
+ files=sum(({ s+"/README" }),
+ get_files(s+"/src"),
+ get_files(s+"/doc"),
+ get_files(s+"/lib"),
+ get_files(s+"/bin"));
perror("Creating "+s+".tar.gz:\n");
system("tar cvzf pike/"+s+".tar.gz "+files*" ");
+ rm(s);
perror("Done.\n");
return 0;
}
--
GitLab