Follow up on elimination of $` $& $' in libraries

[perl5.git] / deb.c

diff --git a/deb.c b/deb.c
index fea6ffa..f270835 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -42,12 +42,12 @@ deb(pat,a1,a2,a3,a4,a5,a6,a7,a8)
 
 #  ifdef I_STDARG
 void
-deb(char *pat, ...)
+deb(const char *pat, ...)
 #  else
 /*VARARGS1*/
 void
 deb(pat, va_alist)
-    char *pat;
+    const char *pat;
     va_dcl
 #  endif
 {