From 5a63ceef8d48d5da8deade2d7122a0e51724cfed Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 3 Jun 2011 06:41:48 -0700
Subject: [PATCH] Fix a confusing comment in perly.y
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

There’s no arrow there.
---
 perly.act | 2 +-
 perly.h   | 4 ++--
 perly.tab | 2 +-
 perly.y   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/perly.act b/perly.act
index d8a5424..32f9b82 100644
--- a/perly.act
+++ b/perly.act
@@ -1710,6 +1710,6 @@ case 2:
     
 
 /* Generated from:
- * bd41fc813e5d2d23ff7edef2ab1ef88bbb054176476b7d989db7522dce1c9328 perly.y
+ * dbb2439b7793bc662fb61a937ef279c1e367658eb7b8755c88b0e9c61116ed55 perly.y
  * 738ca60a0b4cb075902435e976a2f393d438e8e6e32ba81e037dd773b75c87b5 regen_perly.pl
  * ex: set ro: */
diff --git a/perly.h b/perly.h
index 701fd5c..63dedf7 100644
--- a/perly.h
+++ b/perly.h
@@ -229,7 +229,7 @@ typedef union YYSTYPE
     TOKEN* tkval;
 #endif
 }
-/* Line 1489 of yacc.c.  */
+/* Line 1529 of yacc.c.  */
 	YYSTYPE;
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
@@ -240,6 +240,6 @@ typedef union YYSTYPE
 
 
 /* Generated from:
- * bd41fc813e5d2d23ff7edef2ab1ef88bbb054176476b7d989db7522dce1c9328 perly.y
+ * dbb2439b7793bc662fb61a937ef279c1e367658eb7b8755c88b0e9c61116ed55 perly.y
  * 738ca60a0b4cb075902435e976a2f393d438e8e6e32ba81e037dd773b75c87b5 regen_perly.pl
  * ex: set ro: */
diff --git a/perly.tab b/perly.tab
index 3920cd2..171faf8 100644
--- a/perly.tab
+++ b/perly.tab
@@ -1074,6 +1074,6 @@ static const toketypes yy_type_tab[] =
 };
 
 /* Generated from:
- * bd41fc813e5d2d23ff7edef2ab1ef88bbb054176476b7d989db7522dce1c9328 perly.y
+ * dbb2439b7793bc662fb61a937ef279c1e367658eb7b8755c88b0e9c61116ed55 perly.y
  * 738ca60a0b4cb075902435e976a2f393d438e8e6e32ba81e037dd773b75c87b5 regen_perly.pl
  * ex: set ro: */
diff --git a/perly.y b/perly.y
index 596426f..a8adefb 100644
--- a/perly.y
+++ b/perly.y
@@ -816,7 +816,7 @@ subscripted:    star '{' expr ';' '}'        /* *main::{something} */
 			  TOKEN_GETMAD($2,$$,'[');
 			  TOKEN_GETMAD($4,$$,']');
 			}
-	|	scalar '{' expr ';' '}'    /* $foo->{bar();} */
+	|	scalar '{' expr ';' '}'    /* $foo{bar();} */
 			{ $$ = newBINOP(OP_HELEM, 0, oopsHV($1), jmaybe($3));
 			    PL_parser->expect = XOPERATOR;
 			  TOKEN_GETMAD($2,$$,'{');
-- 
2.7.4