diff options
Diffstat (limited to 'os2/perlsh.cmd')
-rw-r--r-- | os2/perlsh.cmd | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/os2/perlsh.cmd b/os2/perlsh.cmd deleted file mode 100644 index c583af7099..0000000000 --- a/os2/perlsh.cmd +++ /dev/null @@ -1,19 +0,0 @@ -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 = $/; $/ = ''; -} |