Bugfix in --version handling [minor]

Chris White · Chris White · commit acacb556fb94 · 2018-09-05T11:47:33.000-04:00
diff --git a/lib/Text/PerlPP.pm b/lib/Text/PerlPP.pm
@@ -806,8 +806,9 @@ sub Main {
 	}
 
 	if($self->{Opts}->{PRINT_VERSION}) {	# print version, raw and dotted
-		$Text::PerlPP::VERSION =~ m<^([^\.]+)\.(\d{3})(\d{3})>;
-		printf "PerlPP version %d.%d.%d ($VERSION)\n", $1, $2, $3;
+		$Text::PerlPP::VERSION =~ m<^([^\.]+)\.(\d{3})(_?)(\d{3})>;
+		printf "PerlPP version %d.%d.%d ($VERSION)%s\n", $1, $2, $4,
+			($3 ? ' (dev)' : '');
 		if($self->{Opts}->{PRINT_VERSION} > 1) {
 			print "Script: $0\nText::PerlPP: $INC{'Text/PerlPP.pm'}\n";
 		}

Original file line number	Diff line number	Diff line change
`@@ -806,8 +806,9 @@ sub Main {`
`806`	`806`	`}`
`807`	`807`
`808`	`808`	`if($self->{Opts}->{PRINT_VERSION}) { # print version, raw and dotted`
`809`		`- $Text::PerlPP::VERSION =~ m<^([^\.]+)\.(\d{3})(\d{3})>;`
`810`		`- printf "PerlPP version %d.%d.%d ($VERSION)\n", $1, $2, $3;`
	`809`	`+ $Text::PerlPP::VERSION =~ m<^([^\.]+)\.(\d{3})(_?)(\d{3})>;`
	`810`	`+ printf "PerlPP version %d.%d.%d ($VERSION)%s\n", $1, $2, $4,`
	`811`	`+ ($3 ? ' (dev)' : '');`
`811`	`812`	`if($self->{Opts}->{PRINT_VERSION} > 1) {`
`812`	`813`	`print "Script: $0\nText::PerlPP: $INC{'Text/PerlPP.pm'}\n";`
`813`	`814`	`}`