[perl5.git] / lib / 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
2b69d0c2 LW	1	;# shellwords.pl
	2	;#
	3	;# Usage:
	4	;# require 'shellwords.pl';
08b96d1f	5	;# @words = shellwords($line);
2b69d0c2	6	;# or
08b96d1f	7	;# @words = shellwords(@lines);
2b69d0c2	8	;# or
08b96d1f	9	;# @words = shellwords(); # defaults to $_ (and clobbers it)
9ef589d8	10
6a724e38 AT	11	require Text::ParseWords;
6a724e38 AT	12	*shellwords = \&Text::ParseWords::old_shellwords;
9ef589d8	13
9ef589d8	14	1;