| Revision: | 1.1 |
| Committed: | Thu Jun 30 14:27:09 2005 UTC (21 years, 3 months ago) by root |
| Content type: | text/plain |
| Branch: | MAIN |
| CVS Tags: | PERL-5-8-7, HEAD |
| Branch point for: | PERL |
| Log Message: | *** empty log message *** |
| # | Content |
|---|---|
| 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; |