[inseparable changes from patch to perl 5.004_04]

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 84b8f06..463b498 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -23,6 +23,7 @@ I32   av_len _((AV* ar));
 AV*    av_make _((I32 size, SV** svp));
 SV*    av_pop _((AV* ar));
 void   av_push _((AV* ar, SV* val));
+void   av_reify _((AV* ar));
 SV*    av_shift _((AV* ar));
 SV**   av_store _((AV* ar, I32 key, SV* val));
 void   av_undef _((AV* ar));
@@ -223,6 +224,7 @@ int magic_setsubstr _((SV* sv, MAGIC* mg));
 int    magic_settaint  _((SV* sv, MAGIC* mg));
 int    magic_setuvar   _((SV* sv, MAGIC* mg));
 int    magic_setvec    _((SV* sv, MAGIC* mg));
+int    magic_set_all_env _((SV* sv, MAGIC* mg));
 int    magic_wipepack  _((SV* sv, MAGIC* mg));
 void   magicname _((char* sym, char* name, I32 namlen));
 int    main _((int argc, char** argv, char** env));
@@ -316,7 +318,8 @@ SV* newSVpvf _((const char* pat, ...));
 SV*    newSVrv _((SV* rv, char* classname));
 SV*    newSVsv _((SV* old));
 OP*    newUNOP _((I32 type, I32 flags, OP* first));
-OP*    newWHILEOP _((I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont));
+OP*    newWHILEOP _((I32 flags, I32 debuggable, LOOP* loop,
+                     I32 whileline, OP* expr, OP* block, OP* cont));
 PerlIO*        nextargv _((GV* gv));
 char*  ninstr _((char* big, char* bigend, char* little, char* lend));
 OP*    oopsCV _((OP* o));