Enhance selector and case statements to match with regexp

The case and selector statements define ephemeral vars, like 'if'.

Usage:

case statement:
$var = "foobar"
case $var {
    "foo": {
         notify { "got a foo": }
    }
    /(.*)bar$/: {
         notify{ "hey we got a $1": }
    }
}

and for selector:
$val = $test ? {
  /^match.*$/ => "matched",
  default => "default"
}

Signed-off-by: Brice Figureau <brice-puppet@daysofwonder.com>

1 files changed, 1 insertions, 0 deletions

diff --git a/lib/puppet/parser/grammar.ra b/lib/puppet/parser/grammar.ra
index 2040ee868..072f3515f 100644
--- a/lib/puppet/parser/grammar.ra
+++ b/lib/puppet/parser/grammar.ra
@@ -620,6 +620,7 @@ selectlhand:  name
             | DEFAULT {
     result = ast AST::Default, :value => val[0][:value], :line => val[0][:line]
 }
+            | regex
 
 # These are only used for importing, and we don't interpolate there.
 qtexts:       quotedtext { result = [val[0].value] }