This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ooops. Forgot to update proto.h in change 30853.
authorNicholas Clark <nick@ccl4.org>
Fri, 6 Apr 2007 20:17:14 +0000 (20:17 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 6 Apr 2007 20:17:14 +0000 (20:17 +0000)
p4raw-id: //depot/perl@30854

proto.h

diff --git a/proto.h b/proto.h
index 2fa2a0c..79e6eec 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3240,6 +3240,9 @@ STATIC bool       S_is_handle_constructor(const OP *o, I32 numargs)
 STATIC I32     S_is_list_assignment(pTHX_ const OP *o)
                        __attribute__warn_unused_result__;
 
+STATIC void    S_forget_pmop(pTHX_ PMOP *const o, U32 flags)
+                       __attribute__nonnull__(pTHX_1);
+
 STATIC void    S_cop_free(pTHX_ COP *cop)
                        __attribute__nonnull__(pTHX_1);