Re: [perl #18872] File::Basename example misleading

[p5sagit/p5-mst-13.2.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 4201ece..b62ec99 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -945,7 +945,7 @@ Ap |char * |custom_op_name|OP* op
 Ap |char * |custom_op_desc|OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
-pM     |int    |sv_release_IVX |SV *sv
+ApM    |int    |sv_release_IVX |SV *sv
 #endif
 
 Adp    |void   |sv_nosharing   |SV *