applied non-conflicting parts of suggested patch

	Message-id: <01J9AZY8I2PW001O2S@mail.newman.upenn.edu>
	Subject: [Patch 5.005_56] Revised VMS patch

p4raw-id: //depot/perl@3306

1 files changed, 15 insertions, 0 deletions

diff --git a/util.c b/util.c
index 1318c3193d..43d9aca81f 100644
--- a/util.c
+++ b/util.c
@@ -3026,6 +3026,21 @@ get_specialsv_list(void)
  return PL_specialsv_list;
 }
 
+#ifndef HAS_GETENV_SV
+SV *
+getenv_sv(char *env_elem)
+{
+  char *env_trans;
+  SV *temp_sv;
+  if ((env_trans = PerlEnv_getenv(env_elem)) != Nullch) {
+    temp_sv = newSVpv(env_trans, strlen(env_trans));
+    return temp_sv;
+  } else {
+    return &PL_sv_undef;
+  }
+}
+#endif
+
 
 MGVTBL*
 get_vtbl(int vtbl_id)