diff options
author | Nicholas Clark <nick@ccl4.org> | 2013-03-18 14:35:21 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2013-05-20 17:21:06 +0200 |
commit | 4572fa3eeef0e6fc24d4f16823ed87d5a8e4778b (patch) | |
tree | 0500abbee65affa5e498f76b8c98258d841954dd | |
parent | dbd04185fe7ac500c7afdd3a78e892e62de3ccc6 (diff) | |
download | perl-4572fa3eeef0e6fc24d4f16823ed87d5a8e4778b.tar.gz |
Remove perlsh, which is neither installed nor referenced anywhere.
Described as a "poor man's perl shell", it is unreferenced, and virtually
unchanged since its addition in perl 2. As it is never installed, it's not
used by anyone.
-rw-r--r-- | MANIFEST | 1 | ||||
-rw-r--r-- | perlsh | 15 |
2 files changed, 0 insertions, 16 deletions
@@ -4439,7 +4439,6 @@ perliol.h PerlIO Layer definition perlio.sym Symbols for PerlIO abstraction perlsdio.h Fake stdio using perlio perlsfio.h Prototype sfio mapping for PerlIO -perlsh A poor man's perl shell perlvars.h Global variables perly.act parser actions; derived from perly.y perly.c parser code (NOT derived from perly.y) diff --git a/perlsh b/perlsh deleted file mode 100644 index 63662d6c6a..0000000000 --- a/perlsh +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/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. - -$/ = "\n\n"; # set paragraph mode -$SHlinesep = "\n"; -while (defined($SHcmd = <>)) { - $/ = $SHlinesep; - eval $SHcmd; print $@ || "\n"; - $SHlinesep = $/; $/ = ''; -} |