diff --git a/applets/c2english/CGrammar.pm b/applets/c2english/CGrammar.pm index 127656a2..9e85c8dd 100755 --- a/applets/c2english/CGrammar.pm +++ b/applets/c2english/CGrammar.pm @@ -424,7 +424,7 @@ labeled_statement: identifier ':' statement[context => 'label'] (';')(?) { "Let there be a label $item{identifier}.\n$item{statement}" } | ('case' constant_expression - { $item{constant_expression} } + { $return = $item{constant_expression} } ':')(s) { my @items = @{$item[1]}; @@ -444,7 +444,7 @@ labeled_statement: } elsif (not length $statements and not $last) { $statements = "Do nothing.\n"; } - $return = "If it has the value $item[-2], ^L$statements$last"; + $return = "If it has the value $item[1]->[0], ^L$statements$last"; } | 'default' ':' statement { "In the default case, ^L$item{statement}" } diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm index fe690009..8937661e 100644 --- a/lib/PBot/VERSION.pm +++ b/lib/PBot/VERSION.pm @@ -25,8 +25,8 @@ use PBot::Imports; # These are set by the /misc/update_version script use constant { BUILD_NAME => "PBot", - BUILD_REVISION => 4683, - BUILD_DATE => "2023-08-19", + BUILD_REVISION => 4685, + BUILD_DATE => "2023-09-21", }; sub initialize {}