Bump version number; typo fix in Makefile.PL

Also minor cleanup elsewhere, and updated the credits.

Author: Chris White

MANIFEST

@@ -19,6 +19,8 @@ t/05-external-command.t
 t/06-macro.t
 t/07-invalid.t
 t/08-persistent-state.t
+t/09-preproc.t
+t/10-postproc.t
 t/a.txt
 t/b.txt
 t/c.txt

Makefile.PL

@@ -23,7 +23,7 @@ my $secure_perl_path = get_perl_filename();
 sub MY::postamble {     # TODO also handle Windows nmake syntax (SET vs. export)
     return <<EOT;
 authortest:
-\tRELEASE_TESTING=1 prove -l xt"
+\tRELEASE_TESTING=1 prove -l xt
 
 testhere:   # Run the tests from lib rather than blib
 \t"$secure_perl_path" -Ilib -e 'use Test::Harness "runtests"; runtests \@ARGV;' -- t/*.t

README

@@ -53,7 +53,7 @@ The build system is straight ExtUtils::MakeMaker.
 Before developing, run
 
     perl Makefile.PL
-	cpanm --installdeps .            # if you have cpanminus installed
+    cpanm --installdeps .            # if you have cpanminus installed
 
 Then, to test your code directly from the lib/ directory, run
 

README.md

@@ -337,5 +337,7 @@ FILETYPE can be determined with `:set ft?`
 
 Distributed under the MIT license --- see
 [LICENSE.txt](LICENSE.txt) for details.
-By Andrey Shubin (d-ash at Github) and Chris White (cxw42 at Github).
-
+By Andrey Shubin ([d-ash](https://github.com/d-ash)) and
+Chris White (CXW; [cxw42](https://github.com/cxw42));
+additional contributions by Mohammad S Anwar (MANWAR;
+[manwar](https://github.com/manwar)).

bin/perlpp

@@ -301,12 +301,26 @@ L<ExtUtils::PerlPP>, L<HTML::EP>, L<PML>, L<Preproc::Tiny>, L<ePerl>, L<iperl>.
 
 =head1 AUTHORS
 
-Andrey Shubin (d-ash at Github; L<[email protected]>) and
-Chris White (cxw42 at Github; L<[email protected]>).
+=over
+
+=item * 
+
+Originally by Andrey Shubin (d-ash at Github; C<[email protected]>)
+
+=item *
+
+Currently maintained by Chris White (CXW; cxw42 at Github; 
+C<[email protected]>).
+
+=item *
+
+Other contributions by Mohammad S. Anwar (MANWAR; manwar at Github)
+
+=back
 
 =head1 LICENSE AND COPYRIGHT
 
-Copyright 2013-2018 Andrey Shubin and Christopher White.
+Copyright 2013-2018 PerlPP Contributors (listed above)
 
 This program is distributed under the MIT (X11) License:
 L<http://www.opensource.org/licenses/mit-license.php>

lib/Text/PerlPP.pm

@@ -4,8 +4,9 @@
 package Text::PerlPP;
 
 # Semantic versioning, packed per Perl rules.  Must always be at least one
-# digit left of the decimal, and six digits right of the decimal.
-our $VERSION = '0.600_000';
+# digit left of the decimal, and six digits right of the decimal.  For
+# prerelease versions, put an underscore before the last three digits.
+our $VERSION = '0.600001';
 
 use 5.010001;
 use strict;
@@ -815,26 +816,25 @@ sub Main {
 		return EXIT_OK;
 	}
 
-	# Preamble
-
 	# Save
 	push @Instances, $self;
 
 	$self->{Package} = $self->{Opts}->{INPUT_FILENAME};
 	$self->{Package} =~ s/^.*?([a-z_][a-z_0-9.]*).pl?$/$1/i;
 	$self->{Package} =~ s/[^a-z0-9_]/_/gi;
-		# $self->{Package} is not the whole name, so can start with a number.
+		# Not the whole name yet, so can start with a number.
 	$self->{Package} = "PPP_$self->{Package}$#Instances";
 
 	# Make $self accessible from inside the package.
 	# This has to happen first so that :macro or :immediate blocks in the
 	# script can access it while the input is being parsed.
 	{
 		no strict 'refs';
-		${ "$self->{Package}::" . PPP_SELF_INSIDE }
-			= $Text::PerlPP::Instances[$#Instances];
+		${ "$self->{Package}::" . PPP_SELF_INSIDE } = $self;
 	}
 
+	# --- Preamble -----------
+
 	$self->StartOB();	# Output from here on will be included in the generated script
 
 	# Help the user know where to look
@@ -846,7 +846,7 @@ sub Main {
 	emit "use constant { true => !!1, false => !!0 };\n";
 	emit 'our $' . PPP_SELF_INSIDE . ";\n";	# Lexical alias for $self
 
-	# Definitions
+	# --- Definitions --------
 
 	# Transfer parameters from the command line (-D) to the processed file,
 	# as textual representations of expressions.
@@ -910,6 +910,8 @@ sub Main {
 	}
 	emit ");\n";
 
+	# --- User input ---------
+
 	# Initial code from the command line, if any
 	if($self->{Opts}->{EVAL}) {
 		$self->emit_pound_line( '<-e>', 1 );
@@ -921,7 +923,7 @@ sub Main {
 
 	my $script = $self->EndOB();							# The generated Perl script
 
-	# --- Run it ---
+	# --- Run it -------------
 	if ( $self->{Opts}->{DEBUG} ) {
 		print $script;