From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 24 Jul 2005 15:31:55 +0000 (-0500)
Subject: blead help for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c46ec1f410f930810c1c3e760696951bc26b1248;p=p5sagit%2Fp5-mst-13.2.git

blead help for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <42E3FABB.1020900@mac.com>
Date: Sun, 24 Jul 2005 15:31:55 -0500

p4raw-id: //depot/perl@25217
---

diff --git a/MANIFEST b/MANIFEST
index ecd5fd1..288e149 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -170,28 +170,28 @@ ext/Compress/Zlib/t/04encoding.t	Compress::Zlib
 ext/Compress/Zlib/t/05gzsetp.t		Compress::Zlib
 ext/Compress/Zlib/t/06gzdopen.t		Compress::Zlib
 ext/Compress/Zlib/typemap		Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/adler32.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/compress.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/crc32.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/crc32.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/deflate.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/deflate.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/gzio.c		Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/infback.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inffast.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inffast.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inffixed.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inflate.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inflate.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inftrees.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/inftrees.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/trees.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/trees.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/uncompr.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/zconf.h	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/zlib.h		Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/zutil.c	Compress::Zlib
-ext/Compress/Zlib/zlib-src-1.2.3/zutil.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/adler32.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/compress.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/crc32.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/crc32.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/deflate.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/deflate.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/gzio.c		Compress::Zlib
+ext/Compress/Zlib/zlib-src/infback.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inffast.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inffast.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inffixed.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inflate.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inflate.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inftrees.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/inftrees.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/trees.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/trees.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/uncompr.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/zconf.h	Compress::Zlib
+ext/Compress/Zlib/zlib-src/zlib.h		Compress::Zlib
+ext/Compress/Zlib/zlib-src/zutil.c	Compress::Zlib
+ext/Compress/Zlib/zlib-src/zutil.h	Compress::Zlib
 ext/Data/Dumper/Changes		Data pretty printer, changelog
 ext/Data/Dumper/Dumper.pm	Data pretty printer, module
 ext/Data/Dumper/Dumper.xs	Data pretty printer, externals
diff --git a/ext/Compress/Zlib/config.in b/ext/Compress/Zlib/config.in
index 052e792..638d076 100755
--- a/ext/Compress/Zlib/config.in
+++ b/ext/Compress/Zlib/config.in
@@ -12,8 +12,8 @@
 # Compress::Zlib" in the README file for details of how to use this file.
 
 BUILD_ZLIB = True
-INCLUDE    = ./zlib-src-1.2.3
-LIB        = ./zlib-src-1.2.3
+INCLUDE    = ./zlib-src
+LIB        = ./zlib-src
 OLD_ZLIB   = False
 
 
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/adler32.c b/ext/Compress/Zlib/zlib-src/adler32.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/adler32.c
rename to ext/Compress/Zlib/zlib-src/adler32.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/compress.c b/ext/Compress/Zlib/zlib-src/compress.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/compress.c
rename to ext/Compress/Zlib/zlib-src/compress.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/crc32.c b/ext/Compress/Zlib/zlib-src/crc32.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/crc32.c
rename to ext/Compress/Zlib/zlib-src/crc32.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/crc32.h b/ext/Compress/Zlib/zlib-src/crc32.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/crc32.h
rename to ext/Compress/Zlib/zlib-src/crc32.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/deflate.c b/ext/Compress/Zlib/zlib-src/deflate.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/deflate.c
rename to ext/Compress/Zlib/zlib-src/deflate.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/deflate.h b/ext/Compress/Zlib/zlib-src/deflate.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/deflate.h
rename to ext/Compress/Zlib/zlib-src/deflate.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/gzio.c b/ext/Compress/Zlib/zlib-src/gzio.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/gzio.c
rename to ext/Compress/Zlib/zlib-src/gzio.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/infback.c b/ext/Compress/Zlib/zlib-src/infback.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/infback.c
rename to ext/Compress/Zlib/zlib-src/infback.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inffast.c b/ext/Compress/Zlib/zlib-src/inffast.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inffast.c
rename to ext/Compress/Zlib/zlib-src/inffast.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inffast.h b/ext/Compress/Zlib/zlib-src/inffast.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inffast.h
rename to ext/Compress/Zlib/zlib-src/inffast.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inffixed.h b/ext/Compress/Zlib/zlib-src/inffixed.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inffixed.h
rename to ext/Compress/Zlib/zlib-src/inffixed.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inflate.c b/ext/Compress/Zlib/zlib-src/inflate.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inflate.c
rename to ext/Compress/Zlib/zlib-src/inflate.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inflate.h b/ext/Compress/Zlib/zlib-src/inflate.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inflate.h
rename to ext/Compress/Zlib/zlib-src/inflate.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inftrees.c b/ext/Compress/Zlib/zlib-src/inftrees.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inftrees.c
rename to ext/Compress/Zlib/zlib-src/inftrees.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/inftrees.h b/ext/Compress/Zlib/zlib-src/inftrees.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/inftrees.h
rename to ext/Compress/Zlib/zlib-src/inftrees.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/trees.c b/ext/Compress/Zlib/zlib-src/trees.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/trees.c
rename to ext/Compress/Zlib/zlib-src/trees.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/trees.h b/ext/Compress/Zlib/zlib-src/trees.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/trees.h
rename to ext/Compress/Zlib/zlib-src/trees.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/uncompr.c b/ext/Compress/Zlib/zlib-src/uncompr.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/uncompr.c
rename to ext/Compress/Zlib/zlib-src/uncompr.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/zconf.h b/ext/Compress/Zlib/zlib-src/zconf.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/zconf.h
rename to ext/Compress/Zlib/zlib-src/zconf.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/zlib.h b/ext/Compress/Zlib/zlib-src/zlib.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/zlib.h
rename to ext/Compress/Zlib/zlib-src/zlib.h
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/zutil.c b/ext/Compress/Zlib/zlib-src/zutil.c
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/zutil.c
rename to ext/Compress/Zlib/zlib-src/zutil.c
diff --git a/ext/Compress/Zlib/zlib-src-1.2.3/zutil.h b/ext/Compress/Zlib/zlib-src/zutil.h
similarity index 100%
rename from ext/Compress/Zlib/zlib-src-1.2.3/zutil.h
rename to ext/Compress/Zlib/zlib-src/zutil.h
diff --git a/mg.c b/mg.c
index f3e6720..fe78c20 100644
--- a/mg.c
+++ b/mg.c
@@ -1045,7 +1045,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
 	MgTAINTEDDIR_off(mg);
 #ifdef VMS
 	if (s && klen == 8 && strEQ(ptr, "DCL$PATH")) {
-	    char pathbuf[256], eltbuf[256], *cp, *elt = s;
+	    char pathbuf[256], eltbuf[256], *cp, *elt = (char *) s;
 	    Stat_t sbuf;
 	    int i = 0, j = 0;
 
diff --git a/pp_ctl.c b/pp_ctl.c
index dc91e6b..b511b0e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3143,7 +3143,7 @@ PP(pp_require)
 	I32 i;
 #ifdef VMS
 	char *unixname;
-	if ((unixname = tounixspec(name, Nullch)) != Nullch)
+	if ((unixname = tounixspec((char *)name, Nullch)) != Nullch)
 #endif
 	{
 	    namesv = NEWSV(806, 0);
@@ -3280,7 +3280,7 @@ PP(pp_require)
 #else
 #  ifdef VMS
 		    char *unixdir;
-		    if ((unixdir = tounixpath(dir, Nullch)) == Nullch)
+		    if ((unixdir = tounixpath((char *)dir, Nullch)) == Nullch)
 			continue;
 		    sv_setpv(namesv, unixdir);
 		    sv_catpv(namesv, unixname);
diff --git a/pp_sys.c b/pp_sys.c
index 77613cb..4ca140f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3607,7 +3607,7 @@ PP(pp_chdir)
 #endif
     }
     else 
-        PUSHi( PerlDir_chdir(tmps) >= 0 );
+        PUSHi( PerlDir_chdir((char *)tmps) >= 0 );
 #ifdef VMS
     /* Clear the DEFAULT element of ENV so we'll get the new value
      * in the future. */
@@ -3878,7 +3878,7 @@ PP(pp_mkdir)
 
     TAINT_PROPER("mkdir");
 #ifdef HAS_MKDIR
-    SETi( PerlDir_mkdir(tmps, mode) >= 0 );
+    SETi( PerlDir_mkdir((char *)tmps, mode) >= 0 );
 #else
     SETi( dooneliner("mkdir", tmps) );
     oldumask = PerlLIO_umask(0);
@@ -3900,7 +3900,7 @@ PP(pp_rmdir)
     TRIMSLASHES(tmps,len,copy);
     TAINT_PROPER("rmdir");
 #ifdef HAS_RMDIR
-    SETi( PerlDir_rmdir(tmps) >= 0 );
+    SETi( PerlDir_rmdir((char *)tmps) >= 0 );
 #else
     SETi( dooneliner("rmdir", tmps) );
 #endif
@@ -3924,7 +3924,7 @@ PP(pp_open_dir)
 
     if (IoDIRP(io))
 	PerlDir_close(IoDIRP(io));
-    if (!(IoDIRP(io) = PerlDir_open(dirname)))
+    if (!(IoDIRP(io) = PerlDir_open((char *)dirname)))
 	goto nope;
 
     RETPUSHYES;
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 50ae3e3..6fb1bb9 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -152,7 +152,8 @@ sub scan_func {
   $line =~ s/\b(IV|Off_t|Size_t|SSize_t|void)\b//i;
   if ( $line =~ /(\w+)\s*\(/ ) {
     print "\troutine name is \\$1\\\n" if $debug > 1;
-    if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__') {
+    if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__'
+        || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) {
       print "\tskipped\n" if $debug > 1;
     }
     else { $fcns{$1}++ }