summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/perlsh
diff options
context:
space:
mode:
authormarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
committermarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
commitf56e05005c751822074f0a22aa9a98d2eb189924 (patch)
treee28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/perlsh
parent344ddc14973a1519f100f54051dcb068069fe43c (diff)
downloadFreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip
FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/perlsh')
-rw-r--r--contrib/perl5/perlsh15
1 files changed, 0 insertions, 15 deletions
diff --git a/contrib/perl5/perlsh b/contrib/perl5/perlsh
deleted file mode 100644
index 63662d6..0000000
--- a/contrib/perl5/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 = $/; $/ = '';
-}
OpenPOWER on IntegriCloud