Permalink
Browse files

Add missing constants to APVM::B

  • Loading branch information...
gfx committed Nov 18, 2009
1 parent b4ba5a6 commit 54a33680edaf3269281a3d9264cc5c8717e1a06e
Showing with 15 additions and 1 deletion.
  1. +9 −0 lib/Acme/Perl/VM/B.pm
  2. +1 −1 lib/Acme/Perl/VM/JA.pod
  3. +5 −0 xt/01_podspell.t
View
@@ -14,6 +14,14 @@ unless(defined &OPpPAD_STATE){
constant->import(OPpPAD_STATE => 0x00);
push @EXPORT, qw(OPpPAD_STATE);
}
+unless(defined &G_WANT){
+ constant->import(G_WANT => G_SCALAR() | G_ARRAY() | G_VOID());
+ push @EXPORT, qw(G_WANT);
+}
+unless(defined &OPpITER_REVERSED){
+ constant->import(OPpITER_REVERSED => 0x00);
+ push @EXPORT, qw(OPpITER_REVERSED);
+}
push @EXPORT, qw(NULL TRUE FALSE USE_ITHREADS sv_yes sv_no);
use constant {
@@ -26,6 +34,7 @@ use constant {
sv_no => B::sv_no,
};
+
package
B::OBJECT;
View
@@ -240,7 +240,7 @@ The Context and Block Stack (PL_cxstack)
=item *
-The Stack Infomation (PL_curstackinfo)
+The Stack Information (PL_curstackinfo)
=back
View
@@ -16,3 +16,8 @@ __DATA__
Goro Fuji (gfx)
gfuji(at)cpan.org
Acme::Perl::VM
+APVM
+gfx
+ppcode
+ppcodes
+runops

0 comments on commit 54a3368

Please sign in to comment.