X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/08858ed21b9a4d448437bdae35df5c42fbe1c8bd..3be3cdd69f8d4575e4bd169527cadc39aedcb7b1:/sv.c

diff --git a/sv.c b/sv.c
index 9f456c1..4d7f32d 100644
--- a/sv.c
+++ b/sv.c
@@ -10118,7 +10118,7 @@ Perl_parser_dup(pTHX_ const yy_parser *const proto, CLONE_PARAMS *const param)
 /* duplicate a file handle */
 
 PerlIO *
-Perl_fp_dup(pTHX_ PerlIO *fp, char type, CLONE_PARAMS *param)
+Perl_fp_dup(pTHX_ PerlIO *const fp, const char type, CLONE_PARAMS *const param)
 {
     PerlIO *ret;