[OpenSPARC-T2-SAM] / sam-t2 / devtools / v9 / lib / perl5 / 5.8.8 / shellwords.pl

;# shellwords.pl
;#
;# Usage:
;#	require 'shellwords.pl';
;#	@words = shellwords($line);
;#	or
;#	@words = shellwords(@lines);
;#	or
;#	@words = shellwords();		# defaults to $_ (and clobbers it)

require Text::ParseWords;
*shellwords = \&Text::ParseWords::old_shellwords;

1;
Commit	Line	Data
920dae64 AT	1	;# shellwords.pl
	2	;#
	3	;# Usage:
	4	;# require 'shellwords.pl';
	5	;# @words = shellwords($line);
	6	;# or
	7	;# @words = shellwords(@lines);
	8	;# or
	9	;# @words = shellwords(); # defaults to $_ (and clobbers it)
	10
	11	require Text::ParseWords;
	12	*shellwords = \&Text::ParseWords::old_shellwords;
	13
	14	1;