From de8b040e31e1022b2f39dca267a7dbd8337fbea6 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Sun, 2 Dec 2012 16:19:31 -0500
Subject: [PATCH] bisonpre: Add colon to states for searching

---
 src/bisonpre | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/bisonpre b/src/bisonpre
index 4f81a28af..cc5e4e693 100755
--- a/src/bisonpre
+++ b/src/bisonpre
@@ -9,7 +9,7 @@ use Pod::Usage;
 use strict;
 use vars qw ($Debug $VERSION);
 
-$VERSION = '3.307';
+$VERSION = '3.318';
 
 our $Self;
 
@@ -56,7 +56,7 @@ process();
 
 sub usage {
     print "Version $VERSION\n";
-    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT);
+    pod2usage(-verbose=>2, -exitval=>2, -output=>\*STDOUT, -noperldoc=>1);
     exit (1);
 }
 
@@ -167,11 +167,11 @@ sub clean_output {
 	my %state_line; my $l=0;
 	foreach my $line (@lines) {
 	    $l++;
-	    $state_line{$1} = $l if $line =~ /^state (\d+)\s*$/;
+	    # We add a colon so it's easy to search for the definition
+	    $state_line{$1} = $l if $line =~ s/^state (\d+)\s*$/state $1:/;
 	}
 	my @out;
 	foreach my $line (@lines) {
-	    $state_line{$1} = $l if $line =~ /^state (\d+)\s*$/;
 	    if ($line =~ /^State (\d+) (conflicts)/) {
 		chomp $line;
 		$line .= " // line $state_line{$1}" if $state_line{$1};