From 987de3f38c758aadeb66a01f145909aa2a0ebaca Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 18 Jun 2014 00:14:16 +0000
Subject: [PATCH] CGrammar: Oops, pointers are read right-to-left -- fixed
 const pointers again

---
 PBot/VERSION.pm               | 2 +-
 modules/c2english/CGrammar.pm | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/PBot/VERSION.pm b/PBot/VERSION.pm
index afbfdd87..939f244e 100644
--- a/PBot/VERSION.pm
+++ b/PBot/VERSION.pm
@@ -13,7 +13,7 @@ use warnings;
 # These are set automatically by the build/commit script
 use constant {
   BUILD_NAME     => "PBot",
-  BUILD_REVISION => 651,
+  BUILD_REVISION => 652,
   BUILD_DATE     => "2014-06-17",
 };
 
diff --git a/modules/c2english/CGrammar.pm b/modules/c2english/CGrammar.pm
index fa358838..321d7b74 100644
--- a/modules/c2english/CGrammar.pm
+++ b/modules/c2english/CGrammar.pm
@@ -1209,13 +1209,13 @@ identifier:
 pointer:
       '*' type_qualifier_list(s) pointer(?) 
           { 
-            $return = join('', @{$item{'type_qualifier_list(s)'}}) . ' pointer to a ';
-            $return .= ' ' . join('', @{$item{'pointer(?)'}}) if @{$item{'pointer(?)'}};
+            $return = join('', @{$item{'pointer(?)'}}) if @{$item{'pointer(?)'}};
+            $return .= ' ' .  join('', @{$item{'type_qualifier_list(s)'}}) . ' pointer to a ';
           }
     | '*' pointer(?) 
           { 
-            $return .= 'pointer to a'; 
-            $return .= ' ' . join('', @{$item{'pointer(?)'}});
+            $return = join('', @{$item{'pointer(?)'}});
+            $return .= ' pointer to a'; 
           } 
  
 type_qualifier_list: