package English;

require Exporter;
@ISA = (Exporter);

local($^W) = 0;

@EXPORT = qw(
	*ARG
	$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
	$ERRNO
	$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.

	*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				= \$!	;
	    *ERRNO				= \$!	;
	*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				= \$]	;
	*ACCUMULATOR				= \$^A	;
	*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;