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 /perlsh | |
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.
Diffstat (limited to 'perlsh')
-rw-r--r-- | perlsh | 15 |
1 files changed, 0 insertions, 15 deletions
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 = $/; $/ = ''; -} |