diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-15 23:03:11 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-15 23:03:11 +0000 |
| commit | 76854fea946342f75a73f6266f0a5dedd775121f (patch) | |
| tree | ea51c7270c19c33ff001378768b161b001b15ad5 /os2 | |
| parent | d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d (diff) | |
| download | perl-76854fea946342f75a73f6266f0a5dedd775121f.tar.gz | |
perl 3.0 patch #33 patch #29, continued
See patch #29.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/perlglob.cs | 7 | ||||
| -rw-r--r-- | os2/perlglob.def | 3 | ||||
| -rw-r--r-- | os2/perlsh.cmd | 19 |
3 files changed, 29 insertions, 0 deletions
diff --git a/os2/perlglob.cs b/os2/perlglob.cs new file mode 100644 index 0000000000..ca3967e847 --- /dev/null +++ b/os2/perlglob.cs @@ -0,0 +1,7 @@ +glob.c + +setargv.obj +perlglob.def +perlglob.exe + +-AS -LB -S0x1000 diff --git a/os2/perlglob.def b/os2/perlglob.def new file mode 100644 index 0000000000..cfa07392ff --- /dev/null +++ b/os2/perlglob.def @@ -0,0 +1,3 @@ +NAME PERLGLOB WINDOWCOMPAT NEWFILES +DESCRIPTION 'Filename globbing for PERL - for MS-DOS and OS/2' +STUB 'REALGLOB.EXE' diff --git a/os2/perlsh.cmd b/os2/perlsh.cmd new file mode 100644 index 0000000000..c583af7099 --- /dev/null +++ b/os2/perlsh.cmd @@ -0,0 +1,19 @@ +extproc perl -x +#!perl + +# Poor man's perl shell. + +# Simply type two carriage returns every time you want to evaluate. +# Note that it must be a complete perl statement--don't type double +# carriage return in the middle of a loop. + +print "Perl shell\n> "; + +$/ = ''; # set paragraph mode +$SHlinesep = "\n"; + +while ($SHcmd = <>) { + $/ = $SHlinesep; + eval $SHcmd; print $@ || "\n> "; + $SHlinesep = $/; $/ = ''; +} |