perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 139 insertions, 0 deletions

diff --git a/lib/English.pm b/lib/English.pm
new file mode 100644
index 0000000000..959e5b6e1c
--- /dev/null
+++ b/lib/English.pm
@@ -0,0 +1,139 @@
+package English;
+
+require Exporter;
+@ISA = (Exporter);
+
+@EXPORT = qw(
+	*ARG
+	$MAGIC
+	$MATCH
+	$PREMATCH
+	$POSTMATCH
+	$LAST_PAREN_MATCH
+	$INPUT_LINE_NUMBER
+	$NR
+	$INPUT_RECORD_SEPARATOR
+	$RS
+	$OUTPUT_AUTOFLUSH
+	$OUTPUT_FIELD_SEPARATOR
+	$OFS
+	$OUTPUT_RECORD_SEPARATOR
+	$ORS
+	$LIST_SEPARATOR
+	$SUBSCRIPT_SEPARATOR
+	$SUBSEP
+	$FORMAT_PAGE_NUMBER
+	$FORMAT_LINES_PER_PAGE
+	$FORMAT_LINES_LEFT
+	$FORMAT_NAME
+	$FORMAT_TOP_NAME
+	$FORMAT_LINE_BREAK_CHARACTERS
+	$FORMAT_FORMFEED
+	$CHILD_ERROR
+	$OS_ERROR
+	$EVAL_ERROR
+	$PROCESS_ID
+	$PID
+	$REAL_USER_ID
+	$UID
+	$EFFECTIVE_USER_ID
+	$EUID
+	$REAL_GROUP_ID
+	$GID
+	$EFFECTIVE_GROUP_ID
+	$EGID
+	$PROGRAM_NAME
+	$PERL_VERSION
+	$DEBUGGING
+	$SYSTEM_FD_MAX
+	$INPLACE_EDIT
+	$PERLDB
+	$BASETIME
+	$WARNING
+	$EXECUTABLE_NAME
+	$ARRAY_BASE
+	$OFMT
+	$MULTILINE_MATCHING
+);
+
+# The ground of all being.
+
+	*MAGIC					= \$_	;
+	*ARG					= *_	;
+
+# Matching.
+
+	*MATCH					= \$&	;
+	*PREMATCH				= \$`	;
+	*POSTMATCH				= \$'	;
+	*LAST_PAREN_MATCH			= \$+	;
+
+# Input.
+
+	*INPUT_LINE_NUMBER			= \$.	;
+	    *NR					= \$.	;
+	*INPUT_RECORD_SEPARATOR			= \$/	;
+	    *RS					= \$/	;
+
+# Output.
+
+	*OUTPUT_AUTOFLUSH			= \$|	;
+	*OUTPUT_FIELD_SEPARATOR			= \$,	;
+	    *OFS				= \$,	;
+	*OUTPUT_RECORD_SEPARATOR		= \$\	;
+	    *ORS				= \$\	;
+
+# Interpolation "constants".
+
+	*LIST_SEPARATOR				= \$"	;
+	*SUBSCRIPT_SEPARATOR			= \$;	;
+	    *SUBSEP				= \$;	;
+
+# Formats
+
+	*FORMAT_PAGE_NUMBER			= \$%	;
+	*FORMAT_LINES_PER_PAGE			= \$=	;
+	*FORMAT_LINES_LEFT			= \$-	;
+	*FORMAT_NAME				= \$~	;
+	*FORMAT_TOP_NAME			= \$^	;
+	*FORMAT_LINE_BREAK_CHARACTERS		= \$:	;
+	*FORMAT_FORMFEED			= \$^L	;
+
+# Error status.
+
+	*CHILD_ERROR				= \$?	;
+	*OS_ERROR				= \$!	;
+	*EVAL_ERROR				= \$@	;
+
+# Process info.
+
+	*PROCESS_ID				= \$$	;
+	    *PID				= \$$	;
+	*REAL_USER_ID				= \$<	;
+	    *UID				= \$<	;
+	*EFFECTIVE_USER_ID			= \$>	;
+	    *EUID				= \$>	;
+	*REAL_GROUP_ID				= \$(	;
+	    *GID				= \$(	;
+	*EFFECTIVE_GROUP_ID			= \$)	;
+	    *EGID				= \$)	;
+	*PROGRAM_NAME				= \$0	;
+
+# Internals.
+
+	*PERL_VERSION				= \$]	;
+	*DEBUGGING				= \$^D	;
+	*SYSTEM_FD_MAX				= \$^F	;
+	*INPLACE_EDIT				= \$^I	;
+	*PERLDB					= \$^P	;
+	*BASETIME				= \$^T	;
+	*WARNING				= \$^W	;
+	*EXECUTABLE_NAME			= \$^X	;
+
+# Deprecated.
+
+	*ARRAY_BASE				= \$[	;
+	*OFMT					= \$#	;
+	*MULTILINE_MATCHING			= \$*	;
+
+1;