--- ./perlvars.h-pre-build	Wed Sep 21 11:31:28 2005
+++ ./perlvars.h	Mon Nov 27 17:26:24 2006
@@ -53,7 +53,11 @@ PERLVAR(Gdollarzero_mutex, perl_mutex)	/
 #endif
 
 /* This is constant on most architectures, a global on OS/2 */
+#ifdef OS2
+PERLVARI(Gsh_path,	      char *,	SH_PATH)/* full path of shell */
+#else
 PERLVARI(Gsh_path,	const char *,	SH_PATH)/* full path of shell */
+#endif
 
 #ifndef PERL_MICRO
 /* If Perl has to ignore SIGPFE, this is its saved state.
