Branch: Tag:

1998-04-17

1998-04-17 05:04:49 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

RUNPIKE quoting fixed

Rev: bin/test_pike.pike:1.13

1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.12 1998/04/16 01:10:40 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.13 1998/04/17 05:04:49 hubbe Exp $ */      #include <simulate.h>   
27:       string *args=backtrace()[0][3];    args=args[..sizeof(args)-1-argc]; -  add_constant("RUNPIKE",args*" "); +  add_constant("RUNPIKE",Array.map(args,Process.sh_quote)*" ");       foreach(Getopt.find_all_options(argv,aggregate(    ({"help",Getopt.NO_ARG,({"-h","--help"})}),