Re: [MacPerl-Porters] command-line options

Try this on for size:

	use Getopt::Std;

	BEGIN { if ($^O eq 'MacOS' && !@ARGV) {
		@ARGV = split ' ', MacPerl::Ask('Command line options?');
	} }

	getopts('oif:', \%opts);
	print $opts{f};

I am not convinced modifying the modules is appropriate, though.  Often,
you won't necessarily want to pass options, just because one of those
modules (oe even -s) is used.  I know on Unix I have plenty of programs
that can accept input in that manner, but often don't.  So bringing up the
box each time would be kinda ... annoying.

-- 
Chris Nandor                      [email protected]    http://pudge.net/
Open Source Development Network    [email protected]     http://osdn.com/