&CORE::break
authorFather Chrysostomos <sprout@cpan.org>
Thu, 25 Aug 2011 05:48:26 +0000 (22:48 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 25 Aug 2011 05:48:26 +0000 (22:48 -0700)
This is another nullary function that I forgot to give a body
to make it callable via &break syntax.

gv.c
t/op/coresubs.t

diff --git a/gv.c b/gv.c
index 93f2bb7..55dbd47 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1353,6 +1353,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
            case KEY_or: case KEY_x: case KEY_xor:
                return gv;
            case KEY___FILE__: case KEY___LINE__: case KEY___PACKAGE__:
+           case KEY_break:
            case KEY_continue: case KEY_endgrent: case KEY_endhostent:
            case KEY_endnetent: case KEY_endprotoent: case KEY_endpwent:
            case KEY_endservent: case KEY_getgrent: case KEY_gethostent:
index d1a2edc..4d4ae03 100644 (file)
@@ -56,6 +56,18 @@ is file(), 'frob'    , '__FILE__ does check its caller'   ; ++ $tests;
 is line(),  5        , '__LINE__ does check its caller'   ; ++ $tests;
 is pakg(), 'stribble', '__PACKAGE__ does check its caller'; ++ $tests;
 
+test_proto 'break';
+{ $tests ++;
+  my $tmp;
+  CORE::given(1) {
+    CORE::when(1) {
+      &mybreak;
+      $tmp = 'bad';
+    }
+  }
+  is $tmp, undef, '&break';
+}
+
 test_proto 'continue';
 $tests ++;
 CORE::given(1) {