Skip to content
Snippets Groups Projects
Commit 6031f498 authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

gzip-fix (again)

Rev: bin/export.pike:1.7
parent 265afca2
No related branches found
No related tags found
No related merge requests found
#!/usr/local/bin/pike #!/usr/local/bin/pike
/* $Id: export.pike,v 1.6 1997/09/09 04:33:29 hubbe Exp $ */ /* $Id: export.pike,v 1.7 1997/09/09 04:39:43 hubbe Exp $ */
#include <simulate.h> #include <simulate.h>
...@@ -85,7 +85,7 @@ int main(int argc, string *argv) ...@@ -85,7 +85,7 @@ int main(int argc, string *argv)
get_files(vpath+"/bin")); get_files(vpath+"/bin"));
perror("Creating "+vpath+".tar.gz:\n"); perror("Creating "+vpath+".tar.gz:\n");
system("tar cvf - "+files*" "+" | gzip -9 pike/"+vpath+".tar.gz"); system("tar cvf - "+files*" "+" | gzip -9 >pike/"+vpath+".tar.gz");
rm(vpath); rm(vpath);
perror("Done.\n"); perror("Done.\n");
return 0; return 0;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment