Author: jkeenan
Date: Sat Oct 6 17:39:40 2007
New Revision: 21935
Modified:
branches/reconfigure/lib/Parrot/Configure.pm
Log:
Eliminate an unnecessary pair of parentheses in definition of .
Modified: branches/reconfigure/lib/Parrot/Configure.pm
==============================================================================
--- branches/reconfigure/lib/Parrot/Configure.pm (original)
+++ branches/reconfigure/lib/Parrot/Configure.pm Sat Oct 6 17:39:40 2007
@@ -269,7 +269,7 @@
# two colons, the first half of which is one of init|inter|auto|gen
# (This will be modified to take a step sequence number.)
elsif ( defined ( $fatal_step ) ) {
- my $step_pattern = qr/((?:init|inter|auto|gen)::[a-z]+)/;
+ my $step_pattern = qr/(?:init|inter|auto|gen)::[a-z]+/;
if ( $fatal_step =~ /^
$step_pattern
(, $step_pattern)*
