Change 18216: 64bit Peek failure on HP-UX 11.00

[H.Merijn Brand]

Change 18216 by merijn@merijn-l1 on 2002/11/29 10:00:54

64bit Peek failure on HP-UX 11.00

Subject: Re: Smoke 18188
From: "H.Merijn Brand" <[EMAIL PROTECTED]>
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: 28 Nov 2002 19:25:25 +0100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/ext/Devel/Peek/Peek.t#18 edit

Differences ...

 //depot/perl/ext/Devel/Peek/Peek.t#18 (text) 
Index: perl/ext/Devel/Peek/Peek.t
--- perl/ext/Devel/Peek/Peek.t#17~18177~Sun Nov 24 18:37:07 2002
+++ perl/ext/Devel/Peek/Peek.t  Fri Nov 29 02:00:54 2002
@@ -451,8 +451,8 @@
   SV = PVMG\\($ADDR\\) at $ADDR
 REFCNT = 2
 FLAGS = \\(OBJECT,ROK\\)
-IV = \d+
-NV = \d+
+IV = -?\d+
+NV = $FLOAT
 RV = $ADDR
 SV = NULL\\(0x0\\) at $ADDR
   REFCNT = \d+
End of Patch.

Change 18229: $0 mofifying part I

[H.Merijn Brand]

Change 18229 by merijn@merijn-l1 on 2002/12/02 15:43:16

$0 mofifying part I

Date: Sat, 30 Nov 2002 20:16:51 +0200
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Subject: [PATCH] $0 modifying
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/ext/threads/t/join.t#2 edit
 //depot/perl/makedef.pl#138 edit
 //depot/perl/mg.c#243 edit
 //depot/perl/perl.c#459 edit
 //depot/perl/pod/perlvar.pod#109 edit
 //depot/perl/sv.c#602 edit
 //depot/perl/t/op/magic.t#55 edit
 //depot/perl/thread.h#86 edit

Differences ...

 //depot/perl/ext/threads/t/join.t#2 (text) 
Index: perl/ext/threads/t/join.t
--- perl/ext/threads/t/join.t#1~14659~  Tue Feb 12 06:38:21 2002
+++ perl/ext/threads/t/join.t   Mon Dec  2 07:43:16 2002
@@ -11,7 +11,7 @@
 
 use ExtUtils::testlib;
 use strict;
-BEGIN { print "1..10\n" };
+BEGIN { print "1..11\n" };
 use threads;
 use threads::shared;
 
@@ -86,4 +86,31 @@
return $foo{bar} = \$foo;
 })->join();
 ok(1,"");
+}
+
+if ($^O eq 'linux') { # We parse ps output so this is OS-dependent.
+
+  # First modify $0 in a subthread.
+  print "# 1a: \$0 = $0\n";
+  join( threads->new( sub {
+   print "# 2a: \$0 = $0\n";
+   $0 = "foobar";
+   print "# 2b: \$0 = $0\n" } ) );
+  print "# 1b: \$0 = $0\n";
+  if (open PS, "ps -f |") {
+my $ok;
+while () {
+  print "# $_";
+  if (/^\S+\s+$$\s.+\sfoobar\s*$/) {
+   $ok++;
+   last;
+  }
+}
+close PS;
+ok($ok, 'altering $0 is effective');
+  } else {
+skip("\$0 check: opening 'ps -f |' failed: $!");
+  }
+} else {
+  skip("\$0 check: only on Linux");
 }

 //depot/perl/makedef.pl#138 (text) 
Index: perl/makedef.pl
--- perl/makedef.pl#137~18030~  Sat Oct 19 07:10:21 2002
+++ perl/makedef.pl Mon Dec  2 07:43:16 2002
@@ -643,6 +643,7 @@
PL_regex_padav
PL_sharedsv_space
PL_sharedsv_space_mutex
+   PL_dollarzero_mutex
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup

 //depot/perl/mg.c#243 (text) 
Index: perl/mg.c
--- perl/mg.c#242~18058~Thu Oct 24 16:36:48 2002
+++ perl/mg.c   Mon Dec  2 07:43:16 2002
@@ -2207,6 +2207,7 @@
break;
 #ifndef MACOS_TRADITIONAL
 case '0':
+   LOCK_DOLLARZERO_MUTEX;
 #ifdef HAS_SETPROCTITLE
/* The BSDs don't show the argv[] in ps(1) output, they
 * show a string from the process struct and provide
@@ -2286,6 +2287,7 @@
for (i = 1; i < PL_origargc; i++)
PL_origargv[i] = Nullch;
}
+   UNLOCK_DOLLARZERO_MUTEX;
break;
 #endif
 }

 //depot/perl/perl.c#459 (text) 
Index: perl/perl.c
--- perl/perl.c#458~18150~  Sat Nov 16 12:25:57 2002
+++ perl/perl.c Mon Dec  2 07:43:16 2002
@@ -489,11 +489,6 @@
PL_e_script = Nullsv;
 }
 
-while (--PL_origargc >= 0) {
-Safefree(PL_origargv[PL_origargc]);
-}
-Safefree(PL_origargv);
-
 /* magical thingies */
 
 SvREFCNT_dec(PL_ofs_sv);   /* $, */
@@ -897,21 +892,7 @@
 #endif
 
 PL_origargc = argc;
-{
-/* we copy rather than point to argv
- * since perl_clone will copy and perl_destruct
- * has no way of knowing if we've made a copy or
- * just point to argv
- */
-int i = PL_origargc;
-New(0, PL_origargv, i+1, char*);
-PL_origargv[i] = '\0';
-while (i-- > 0) {
-PL_origargv[i] = savepv(argv[i]);
-}
-}
-
-
+PL_origargv = argv;
 
 if (PL_do_undump) {
 
@@ -936,6 +917,10 @@
 time(&PL_basetime);
 oldscope = PL_scopestack_ix;
 PL_dowarn = G_WARN_OFF;
+
+#ifdef USE_ITHREADS
+MUTEX_INIT(&PL_dollarzero_mutex);
+#endif
 
 #ifdef PERL_FLEXIBLE_EXCEPTIONS
 CALLPROTECT(aTHX_ pcur_env, &ret, MEMBER_TO_FPTR(S_vparse_body), env, xsinit);

 //depot/perl/pod/perlvar.pod#109 (text) 
Index: perl/pod/perlvar.pod
--- perl/pod/perlvar.pod#108~17821~ Fri Aug 30 12:56:53 2002
+++ perl/pod/perlvar.podMon Dec  2 07:43:16 2002
@@ -869,6 +869,10 @@
 result in C<"perl: foobar (perl)">.  This is an operating system
 feature.
 
+In multithreaded scripts Perl coordinates the threads so that any
+thread may modify its copy of the C<$0> and the change becomes visible
+to ps(1) (assuming the operating system plays along).
+
 =item $[
 
 The index of the first element in an array, and of the first character

 //depot/perl/sv.c#602 (text) 
Index: perl/sv.c
--- perl/sv.c#601~18220~Sun Dec  1 16:58:54 2002
+++ perl/sv.c   Mon Dec  2 07:43:16 2002
@@ -10233,12 +10233,7 @@
 
 /* pseudo environmental stuff */
 PL_origargc= proto_perl->Iorigargc;
-i = PL_origargc;
-New(0, PL_origargv, i+1, char*);
-PL_origargv[i] = '\0';
-while (i-- > 0) {
-   PL_origargv[i]  = SAVEPV(proto_perl->Iorigargv[i]);
-

Change 18230: $0 modifying part II (HP-UX only)

[H.Merijn Brand]

Change 18230 by merijn@merijn-l1 on 2002/12/02 15:45:31

$0 modifying part II (HP-UX only)

Date: Sat, 30 Nov 2002 20:16:51 +0200
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Subject: [PATCH] $0 modifying
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/mg.c#244 edit

Differences ...

 //depot/perl/mg.c#244 (text) 
Index: perl/mg.c
--- perl/mg.c#243~18229~Mon Dec  2 07:43:16 2002
+++ perl/mg.c   Mon Dec  2 07:45:31 2002
@@ -29,6 +29,10 @@
 #  endif
 #endif
 
+#ifdef __hpux
+#  include 
+#endif
+
 /* if you only have signal() and it resets on each signal, 
FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */
 #if !defined(HAS_SIGACTION) && defined(VMS)
 #  define  FAKE_PERSISTENT_SIGNAL_HANDLERS
@@ -2230,6 +2234,14 @@
 * --jhi */
setproctitle("%s", s);
 #   endif
+   }
+#endif
+#if defined(__hpux) && defined(PSTAT_SETCMD)
+   {
+union pstun un;
+s = SvPV(sv, len);
+un.pst_command = s;
+pstat(PSTAT_SETCMD, un, len, 0, 0);
}
 #endif
if (!PL_origalen) {
End of Patch.

Change 18231: Re: [perl #15129] building a dynamically linked Perl 5.6.1 on HPUX 11.0

[H.Merijn Brand]

Change 18231 by merijn@merijn-l1 on 2002/12/02 16:00:12

Subject: Re: [perl #15129] building a dynamically linked Perl 5.6.1 on HPUX 
11.0
Date: Mon, 2 Dec 2002 12:04:40 -0500 (EST)
From: Andy Dougherty <[EMAIL PROTECTED]>
Message-ID: 
<[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/README.hpux#39 edit

Differences ...

 //depot/perl/README.hpux#39 (text) 
Index: perl/README.hpux
--- perl/README.hpux#38~17888~  Tue Sep 10 02:20:52 2002
+++ perl/README.hpuxMon Dec  2 08:00:12 2002
@@ -68,7 +68,7 @@
 require the use of HP compiler-specific command-line flags.
 
 If you decide to use gcc, make sure your installation is recent and
-complete, and be sure to read the Perl README file for more gcc-specific
+complete, and be sure to read the Perl INSTALL file for more gcc-specific
 details.
 
 =head2 PA-RISC
@@ -203,6 +203,7 @@
 1. Compile source modules with +z or +Z flag to create a .o module
which contains Position-Independent Code (PIC).  The linker will
tell you in the next step if +Z was needed.
+   (For gcc, the appropriate flag is -fpic or -fPIC.)
 
 2. Link the shared library using the -b flag.  If the code calls
any functions in other system libraries (e.g., libm), it must
@@ -238,7 +239,8 @@
 HP is aware of this problem.  Search the HP-UX cxx-dev forums for
 discussions about the subject.  The short answer is that B
 (all libraries, everything) must be compiled with C<+z> or C<+Z> to be
-PIC (position independent code).  In HP-UX 11.00 or newer the linker
+PIC (position independent code).  (For gcc, that would be
+C<-fpic> or C<-fPIC>).  In HP-UX 11.00 or newer the linker
 error message should tell the name of the offending object file.
 
 A more general approach is to intervene manually, as with an example for
End of Patch.

Change 18272: RT#15950

[H.Merijn Brand]

Change 18272 by merijn@merijn-l1 on 2002/12/09 15:31:28

RT#15950

Subject: [PATCH] Typo in Term::ANSIColor
Date: Fri, 2 Aug 2002 14:13:19 -0700 (PDT)
From: "Mr. Nobody" 

Affected files ...

... //depot/perl/lib/Term/ANSIColor.pm#6 edit

Differences ...

 //depot/perl/lib/Term/ANSIColor.pm#6 (text) 
Index: perl/lib/Term/ANSIColor.pm
--- perl/lib/Term/ANSIColor.pm#5~17540~ Sun Jul 14 14:56:52 2002
+++ perl/lib/Term/ANSIColor.pm  Mon Dec  9 07:31:28 2002
@@ -227,7 +227,7 @@
 
 This module has two interfaces, one through color() and colored() and the
 other through constants.  It also offers the utility function uncolor(),
-which has to be explicitly imported to be used (see L).
+which has to be explicitly imported to be used (see L).
 
 color() takes any number of strings as arguments and considers them to be
 space-separated lists of attributes.  It then forms and returns the escape
End of Patch.

Change 18277: [PATCH perl@18251] VMS build update

[H.Merijn Brand]

Change 18277 by merijn@merijn-l1 on 2002/12/10 08:46:05

Subject: [PATCH perl@18251] VMS build update
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 09 Dec 2002 22:21:54 -0600
From: "Craig A. Berry" <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/configure.com#170 edit
... //depot/perl/ext/Time/HiRes/Makefile.PL#4 edit
... //depot/perl/vms/descrip_mms.template#58 edit

Differences ...

 //depot/perl/configure.com#170 (text) 
Index: perl/configure.com
--- perl/configure.com#169~17946~   Mon Sep 30 08:19:36 2002
+++ perl/configure.com  Tue Dec 10 00:46:05 2002
@@ -6225,7 +6225,7 @@
 $ open/read/error=extra_close EXTRA extra.pods
 $extra_loop:
 $ read/error=extra_close/END_OF_FILE=extra_close EXTRA file
-$ file_type = f$parse(file,,,"TYPE",) - "."
+$ file_type = f$edit(f$parse(file,,,"TYPE",),"LOWERCASE") - "."
 $ if file_type .nes. "VMS" .and. file_type .nes. "vms"
 $ then
 $   pod_file = "[.pod]perl''file_type'.pod"
@@ -6241,7 +6241,8 @@
 $   pod_file_rdt = f$cvtime(f$file_attributes(pod_file,"RDT"))
 $   if file_rdt .GTS. pod_file_rdt then do_copy := true
 $ endif
-$ if do_copy then copy/log/noconfirm 'file' 'pod_file'
+$ ! wacky method to preserve case on ODS-5 even when parse style is traditional
+$ if do_copy then mcr sys$disk:[]miniperl.exe -e "exit 0+$^E unless 
+File::Copy::rmscopy(q{''file'}, q{''pod_file'});"
 $   endif
 $ endif
 $ goto extra_loop

 //depot/perl/ext/Time/HiRes/Makefile.PL#4 (text) 
Index: perl/ext/Time/HiRes/Makefile.PL
--- perl/ext/Time/HiRes/Makefile.PL#3~18034~Sun Oct 20 06:23:16 2002
+++ perl/ext/Time/HiRes/Makefile.PL Tue Dec 10 00:46:05 2002
@@ -83,7 +83,7 @@
my $ccflags = $Config{'ccflags'} . ' ' . "-I$COREincdir";
if ($^O eq 'VMS') {
if ($ENV{PERL_CORE}) {
-$cccmd = "$Config{'cc'} /include=(perl_root:[00]) $tmp.c"; 
+$cccmd = "$Config{'cc'} /include=([---]) $tmp.c"; 
} else {
my $perl_core = $Config{'installarchlib'};
$perl_core =~ s/\]$/.CORE]/;

 //depot/perl/vms/descrip_mms.template#58 (text) 
Index: perl/vms/descrip_mms.template
--- perl/vms/descrip_mms.template#57~17688~ Tue Aug  6 13:04:19 2002
+++ perl/vms/descrip_mms.template   Tue Dec 10 00:46:05 2002
@@ -1,6 +1,6 @@
 !GROK!THIS!
 # Descrip.MMS for perl5 on VMS
-# Last revised 01-Mar-2000 by Charles Bailey  [EMAIL PROTECTED]
+# Last revised 5-Dec-2001 by Craig Berry -- [EMAIL PROTECTED]
 #
 #: This file uses MMS syntax, and can be processed using DEC's MMS product,
 #: or the free MMK clone (available by ftp at ftp.spc.edu).  If you want to
@@ -258,21 +258,21 @@
  End of system configuration section. 
 
 c0 = $(MALLOC_C) $(SOCKC) av.c deb.c doio.c doop.c dump.c globals.c gv.c hv.c
-c1 = mg.c locale.c miniperlmain.c numeric.c op.c perl.c perlapi.c perlio.c
+c1 = mg.c locale.c miniperlmain.c numeric.c op.c pad.c perl.c perlapi.c perlio.c
 c2 = perly.c pp.c pp_ctl.c pp_hot.c pp_pack.c pp_sort.c pp_sys.c regcomp.c regexec.c 
reentr.c
 c3 = run.c scope.c sv.c taint.c toke.c universal.c utf8.c util.c vms.c xsutils.c
 c = $(c0) $(c1) $(c2) $(c3)
 
 obj0 = $(MALLOC_O) $(SOCKO) av$(O) deb$(O) doio$(O) doop$(O) dump$(O)
-obj1 = globals$(O) gv$(O) hv$(O) locale$(O) mg$(O) miniperlmain$(O) numeric$(O)
-obj2 = op$(O) perl$(O) perlapi$(O) perlio$(O) perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) 
reentr$(O)
+obj1 = globals$(O) gv$(O) hv$(O) locale$(O) mg$(O) miniperlmain$(O) numeric$(O) 
+op$(O) pad$(O)
+obj2 = perl$(O) perlapi$(O) perlio$(O) perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) 
+reentr$(O)
 obj3 = pp_pack$(O) pp_sort$(O) pp_sys$(O) regcomp$(O) regexec$(O) run$(O) scope$(O) 
sv$(O) taint$(O) toke$(O)
 obj4 = universal$(O) utf8$(O) util$(O) vms$(O) xsutils$(O)
 obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4)
 
 h0 = av.h cc_runtime.h config.h cop.h cv.h embed.h embedvar.h
-h1 = extern.h form.h gv.h handy.h hv.h intern.h intrpvar.h
-h2 = iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h opnames.h
+h1 = EXTERN.h form.h gv.h handy.h hv.h INTERN.h intrpvar.h
+h2 = iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h opnames.h pad.h
 h3 = patchlevel.h perl.h perlapi.h perlio.h perlsdio.h perlvars.h perly.h
 h4 = pp.h pp_proto.h proto.h regcomp.h regexp.h regnodes.h scope.h
 h5 = sv.h thrdvar.h thread.h utf8.h util.h vmsish.h warnings.h
@@ -285,8 +285,8 @@
 ac3 = $(ARCHCORE)form.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h
 ac4 = $(ARCHCORE)INTERN.h $(ARCHCORE)intrpvar.h $(ARCHCORE)iperlsys.h
 ac5 = $(ARCHCORE)keywords.h $(ARCHCORE)mg.h $(ARCHCORE)nostdio.h
-ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h
-ac7 = $(ARCHCORE)opnames.h $(ARCHCORE)patchlevel.h $(ARCHCORE)perl.h
+ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h $(ARCHCORE)opnames.h 
+ac7 = $(ARCHCORE)pad.h $(ARCHCORE)patchlevel.h $(ARCHCORE)perl.h
 ac8 = $(ARCHCORE)perlapi.h $(ARCHCORE)perlio.h $(ARCHCORE)perlsdio.h
 ac9 = $(ARCHCORE)perlsfio.h $(ARCHCORE)perlvars.h $(

Change 18279: Re: ANSIColor 1.06 released

[H.Merijn Brand]

Change 18279 by merijn@merijn-l1 on 2002/12/10 14:10:03

Subject: Re: ANSIColor 1.06 released
Version bump only after typo fix to sync with CPAN

Affected files ...

... //depot/perl/lib/Term/ANSIColor.pm#7 edit

Differences ...

 //depot/perl/lib/Term/ANSIColor.pm#7 (text) 
Index: perl/lib/Term/ANSIColor.pm
--- perl/lib/Term/ANSIColor.pm#6~18272~ Mon Dec  9 07:31:28 2002
+++ perl/lib/Term/ANSIColor.pm  Tue Dec 10 06:10:03 2002
@@ -34,7 +34,7 @@
 
 # Don't use the CVS revision as the version, since this module is also in Perl
 # core and too many things could munge CVS magic revision strings.
-$VERSION = 1.05;
+$VERSION = 1.06;
 
 ##
 # Internal data structures
End of Patch.

Change 18304: Redone #18011 from metaunits

[H.Merijn Brand]

Change 18304 by merijn@merijn-l1 on 2002/12/16 10:44:57

Redone #18011 from metaunits

Affected files ...

... //depot/perl/Configure#494 edit

Differences ...

 //depot/perl/Configure#494 (xtext) 
Index: perl/Configure
--- perl/Configure#493~18182~   Tue Nov 26 00:44:39 2002
+++ perl/Configure  Mon Dec 16 02:44:57 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Tue Nov 26 10:51:37 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Mon Dec 16 12:51:57 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 18305: Enough changes to Configure and metaunits warrant an update.

[H.Merijn Brand]

Change 18305 by merijn@merijn-l1 on 2002/12/16 10:53:19

Enough changes to Configure and metaunits warrant an update.
Several small changes and three additions

Affected files ...

... //depot/perl/Porting/Glossary#140 edit

Differences ...

 //depot/perl/Porting/Glossary#140 (text) 
Index: perl/Porting/Glossary
--- perl/Porting/Glossary#139~18030~Sat Oct 19 07:10:21 2002
+++ perl/Porting/Glossary   Mon Dec 16 02:53:19 2002
@@ -1399,6 +1399,10 @@
of the source want to take special action if MYMALLOC is used.
This may include different sorts of profiling or error detection.
 
+d_nanosleep (d_nanosleep.U):
+   This variable conditionally defines HAS_NANOSLEEP
+   if nanosleep() is available to sleep with 1E-9 sec accuracy.
+
 d_nice (d_nice.U):
This variable conditionally defines the HAS_NICE symbol, which
indicates to the C program that the nice() routine is available.
@@ -2408,13 +2412,18 @@
can share this executable will have the same full pathname to
'sed.'
 
+gccansipedantic (gccvers.U):
+   If GNU cc (gcc) is used, this variable will enable (if set) the
+   -ansi and -pedantic ccflags for building core files (through
+   cflags script). (See Porting/pumpkin.pod for full description).
+
 gccosandvers (gccvers.U):
-   If GNU cc (gcc) is used, this variable the operating system and
-   version used to compile the gcc.  It is set to '' if not gcc,
+   If GNU cc (gcc) is used, this variable holds the operating system
+   and version used to compile gcc.  It is set to '' if not gcc,
or if nothing useful can be parsed as the os version.
 
 gccversion (gccvers.U):
-   If GNU cc (gcc) is used, this variable holds '1' or '2' to 
+   If GNU cc (gcc) is used, this variable holds '1' or '2' to
indicate whether the compiler is version 1 or 2.  This is used in
setting some of the default cflags.  It is set to '' if not gcc.
 
@@ -3094,6 +3103,22 @@
is useful if $prefix is shared by many packages, e.g. if
$prefix=/usr/local.
 
+   Unfortunately, while this "style" variable is used to set
+   defaults for all three directory hierarchies (core, vendor, and
+   site), there is no guarantee that the same style is actually
+   appropriate for all those directories.  For example, $prefix
+   might be /opt/perl, but $siteprefix might be /usr/local.
+   (Perhaps, in retrospect, the "lib" style should never have been
+   supported, but it did seem like a nice idea at the time.)
+
+   The situation is even less clear for tools such as MakeMaker
+   that can be used to install additional modules into
+   non-standard places.  For example, if a user intends to install
+   a module into a private directory (perhaps by setting PREFIX on
+   the Makefile.PL command line), then there is no reason to
+   assume that the Configure-time $installstyle setting will be
+   relevant for that PREFIX.
+
This may later be extended to include other information, so
be careful with pattern-matching on the results.
 
@@ -4113,7 +4138,7 @@
 
 spitshell (spitshell.U):
This variable contains the command necessary to spit out a runnable
-   shell on this system.  It is either cat or a grep '-v' for # comments.
+   shell on this system.  It is either cat or a grep -v for # comments.
 
 srand48_r_proto (d_srand48_r.U):
This variable encodes the prototype of srand48_r.
End of Patch.

Change 18334: AIX compiler version updates

[H.Merijn Brand]

Change 18334 by merijn@merijn-l1 on 2002/12/18 06:48:11

AIX compiler version updates

Affected files ...

... //depot/perl/README.aix#17 edit

Differences ...

 //depot/perl/README.aix#17 (text) 
Index: perl/README.aix
--- perl/README.aix#16~17702~   Thu Aug  8 08:08:57 2002
+++ perl/README.aix Tue Dec 17 22:48:11 2002
@@ -23,8 +23,16 @@
 of these two (which is quite a lot easier than using gcc), be sure to
 upgrade to the latest available patch level. Currently:
 
-xlC.C 3.1.4.10 or 3.6.6.0 or 5.0.2.6
-vac.C 4.4.0.3  or 5.0.2.4
+xlC.C 3.1.4.10 or 3.6.6.0 or 4.0.2.2 or 5.0.2.9 or 6.0.0.3
+vac.C 4.4.0.3  or 5.0.2.6 or 6.0.0.1
+
+note that xlC has the OS version in the name as of version 4.0.2.0, so
+you will find xlC.C for AIX-5.0 as package
+
+xlC.aix50.rte   5.0.2.0 or 6.0.0.3
+
+subversions are not the same `latest' on all OS versions. For example,
+the latest xlC-5 on aix41 is 5.0.2.9, while on aix43, it is 5.0.2.7.
 
 Perl can be compiled with either IBM's ANSI C compiler or with gcc.
 The former is recommended, as not only can it compile Perl with no
@@ -61,7 +69,7 @@
 
 # lslpp -l | egrep "syscalls|libm"
 bos.adt.libm  5.1.0.25  COMMITTED  Base Application Development
-bos.adt.syscalls  5.1.0.25  COMMITTED  System Calls Application
+bos.adt.syscalls  5.1.0.36  COMMITTED  System Calls Application
 #
 
 =head2 Building Dynamic Extensions on AIX
@@ -89,9 +97,9 @@
 
 If you've chosen to use vac 4, be sure to run 4.4.0.3. Older versions
 will turn up nasty later on. For vac 5 be sure to run at least 5.0.1.0,
-but vac 5.0.2.3 or up is highly recommended. Note that since IBM has
-removed vac 5.0.2.1 and 5.0.2.2 from the software depot, these versions
-should be considered obsolete.
+but vac 5.0.2.6 or up is highly recommended. Note that since IBM has
+removed vac 5.0.2.1 through 5.0.2.5 from the software depot, these
+versions should be considered obsolete.
 
 Here's a brief lead of how to upgrade the compiler to the latest
 level.  Of course this is subject to changes.  You can only upgrade
@@ -156,7 +164,8 @@
  -rw-rw-r--   1 45776101 113592576 Apr 16 2001  vac.C.5.0.2.0.bff
  -rw-rw-r--   1 45776101 114133248 Apr  9 2002  vac.C.5.0.2.3.bff
  -rw-rw-r--   1 45776101 114173184 May 20 2002  vac.C.5.0.2.4.bff
- # wget ftp://ftp.software.ibm.com/aix/fixes/v4/other/vac.C.5.0.2.4.bff
+ -rw-rw-r--   1 45776101 114192640 Nov 22 2002  vac.C.5.0.2.6.bff
+ # wget ftp://ftp.software.ibm.com/aix/fixes/v4/other/vac.C.5.0.2.6.bff
  #
 
 Likewise on all other OS levels. Then execute the following command, and
@@ -164,7 +173,7 @@
 
  # smit install_update
   -> Install and Update from LATEST Available Software
-  * INPUT device / directory for software [ vac.C.5.0.2.4.bff]
+  * INPUT device / directory for software [ vac.C.5.0.2.6.bff]
   [ OK ]
   [ OK ]
 
@@ -176,9 +185,9 @@
 
 =head2 Using GNU's gcc for building perl
 
-Using gcc-3.0 (tested with 3.0.4) now works out of the box, as do
-recent gcc-2.9 builds available directly from IBM as part of their Linux
-compatibility packages, available here:
+Using gcc-3.x (tested with 3.0.4, 3.1, and 3.2) now works out of the box,
+as do recent gcc-2.9 builds available directly from IBM as part of their
+Linux compatibility packages, available here:
 
   http://www.ibm.com/servers/aix/products/aixos/linux/
 
@@ -213,6 +222,6 @@
 
 =head1 DATE
 
-Version 0.0.5: 22 May 2002
+Version 0.0.6: 23 Dec 2002
 
 =cut
End of Patch.

Change 18350: Removal of duplicate comment block

[H.Merijn Brand]

Change 18350 by merijn@merijn-l1 on 2002/12/24 05:26:40

Removal of duplicate comment block

From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Subject: Re: [perl #19306] Sys::Syslog issues.
Date: Mon, 23 Dec 2002 15:25:51 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Sys/Syslog/Syslog.pm#15 edit

Differences ...

 //depot/perl/ext/Sys/Syslog/Syslog.pm#15 (text) 
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#14~16627~ Thu May 16 06:17:42 2002
+++ perl/ext/Sys/Syslog/Syslog.pm   Mon Dec 23 21:26:40 2002
@@ -26,15 +26,6 @@
 use Socket;
 use Sys::Hostname;
 
-# adapted from syslog.pl
-#
-# Tom Christiansen <[EMAIL PROTECTED]>
-# modified to use sockets by Larry Wall <[EMAIL PROTECTED]>
-# NOTE: openlog now takes three arguments, just like openlog(3)
-# Modified to add UNIX domain sockets by Sean Robinson <[EMAIL PROTECTED]>
-#  with support from Tim Bunce <[EMAIL PROTECTED]> and the perl5-porters mailing list
-# Modified to use an XS backend instead of syslog.ph by Tom Hughes <[EMAIL PROTECTED]>
-
 =head1 NAME
 
 Sys::Syslog, openlog, closelog, setlogmask, syslog - Perl interface to the UNIX 
syslog(3) calls
End of Patch.

Change 18390: Use a more likely location for the perl binary

[H.Merijn Brand]

Change 18390 by merijn@merijn-l1 on 2003/01/02 07:32:00

Use a more likely location for the perl binary

Affected files ...

... //depot/perl/Porting/genlog#8 edit

Differences ...

 //depot/perl/Porting/genlog#8 (xtext) 
Index: perl/Porting/genlog
--- perl/Porting/genlog#7~13199~Fri Nov 23 07:05:02 2001
+++ perl/Porting/genlog Wed Jan  1 23:32:00 2003
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -w
+#!/usr/local/bin/perl -w
 #
 # Generate a nice changelist by querying perforce.
 #
End of Patch.

Change 18393: [PATCH perl-5.8/win32/makefile.mk] Re: Smoke [5.8.0] 18389 FAIL(Fm) MSWin32 5.0 Service Pack 3 (x86/1 cpu)

[H.Merijn Brand]

Change 18393 by merijn@merijn-l1 on 2003/01/02 19:41:29

Subject: [PATCH perl-5.8/win32/makefile.mk] Re: Smoke [5.8.0] 18389 FAIL(Fm) 
MSWin32 5.0 Service Pack 3 (x86/1 cpu)
Date: Thu, 2 Jan 2003 19:02:21 +0100
Message-ID: <[EMAIL PROTECTED]>
From: [EMAIL PROTECTED] (Abe Timmerman)

Affected files ...

... //depot/perl/win32/makefile.mk#241 edit

Differences ...

 //depot/perl/win32/makefile.mk#241 (text) 
Index: perl/win32/makefile.mk
--- perl/win32/makefile.mk#240~18327~   Tue Dec 17 18:08:12 2002
+++ perl/win32/makefile.mk  Thu Jan  2 11:41:29 2003
@@ -820,8 +820,8 @@
useithreads=$(USE_ITHREADS) ~   \
usemultiplicity=$(USE_MULTI)~   \
useperlio=$(USE_PERLIO) ~   \
-   uselargefiles=$(USE_LARGE_FILES) ~  \
-   LINK_FLAGS=$(LINK_FLAGS:s/\/\\/) ~  \
+   uselargefiles=$(USE_LARGE_FILES)~   \
+   LINK_FLAGS=$(LINK_FLAGS:s/\/\\/)~   \
optimize=$(OPTIMIZE)
 
 #
End of Patch.

Change 18451: [PATCH perl@18746] VMS test adjustments

[H.Merijn Brand]

Change 18451 by merijn@merijn-l1 on 2003/01/06 06:43:11

Subject: [PATCH perl@18746] VMS test adjustments
Date: Sat, 04 Jan 2003 11:26:00 -0600
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Devel/Peek/Peek.t#23 edit
... //depot/perl/ext/Filter/t/call.t#5 edit
... //depot/perl/lib/charnames.t#23 edit
... //depot/perl/t/run/switchI.t#2 edit

Differences ...

 //depot/perl/ext/Devel/Peek/Peek.t#23 (text) 
Index: perl/ext/Devel/Peek/Peek.t
--- perl/ext/Devel/Peek/Peek.t#22~18409~Fri Jan  3 03:05:09 2003
+++ perl/ext/Devel/Peek/Peek.t  Sun Jan  5 22:43:11 2003
@@ -433,8 +433,14 @@
 MG_TYPE = PERL_MAGIC_envelem\\(e\\)
 (?:MG_FLAGS = 0x01
   TAINTEDDIR
-)?MG_LEN = 4
-MG_PTR = $ADDR "(?i:PATH)"
+)?MG_LEN = -?\d+
+MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY
+SV = PV\\($ADDR\\) at $ADDR
+  REFCNT = \d+
+  FLAGS = \\(TEMP,POK,pPOK\\)
+  PV = $ADDR "(?i:PATH)"\\\0
+  CUR = \d+
+  LEN = \d+)
   MAGIC = $ADDR
 MG_VIRTUAL = &PL_vtbl_taint
 MG_TYPE = PERL_MAGIC_taint\\(t\\)');

 //depot/perl/ext/Filter/t/call.t#5 (text) 
Index: perl/ext/Filter/t/call.t
--- perl/ext/Filter/t/call.t#4~18269~   Sun Dec  8 16:19:33 2002
+++ perl/ext/Filter/t/call.tSun Jan  5 22:43:11 2003
@@ -806,10 +806,12 @@
 
 my $a = `$Perl "-I." $Inc -e "no ${module6}; print q{ok}"`;
 ok(29, ($? >>8) == 0);
+chomp( $a ) if $^O eq 'VMS';
 ok(30, $a eq 'ok');
 
 $a = `$Perl "-I." $Inc $filename2`;
 ok(31, ($? >>8) == 0);
+chomp( $a ) if $^O eq 'VMS';
 ok(32, $a eq 'ok');
 
 }

 //depot/perl/lib/charnames.t#23 (text) 
Index: perl/lib/charnames.t
--- perl/lib/charnames.t#22~18088~  Mon Nov  4 07:37:06 2002
+++ perl/lib/charnames.tSun Jan  5 22:43:11 2003
@@ -6,6 +6,7 @@
 unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
+   require './test.pl';
 }
 $SIG{__WARN__} = sub { push @WARN, @_ };
 }
@@ -292,11 +293,9 @@
print $ali $fil;
close $ali or die "Could not close $alifile: $!";
}
-my $res =
-   $^O eq "MSWin32" ? `.\\perl -I../lib $switch $tmpfile 2>&1` :
-   $^O eq "NetWare" ? `perl-I../lib $switch $tmpfile 2>&1` :
-   $^O eq "MacOS"   ? `$^X -I::lib -MMac::err=unix $switch $tmpfile` :
-  `./perl -I. -I../lib $switch $tmpfile 2>&1`;
+my $res = runperl( switches => $switch, 
+   progfile => $tmpfile,
+   stderr => 1 );
 my $status = $?;
 $res =~ s/[\r\n]+$//;
 $res =~ s/tmp\d+/-/g;  # fake $prog from STDIN

 //depot/perl/t/run/switchI.t#2 (text) 
Index: perl/t/run/switchI.t
--- perl/t/run/switchI.t#1~18102~   Mon Nov  4 13:43:53 2002
+++ perl/t/run/switchI.tSun Jan  5 22:43:11 2003
@@ -11,9 +11,15 @@
 }
 
 ok(grep { $_ eq 'Bla' } @INC);
-ok(grep { $_ eq 'Foo::Bar' } @INC);
+SKIP: {
+  skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS';
+  ok(grep { $_ eq 'Foo::Bar' } @INC);
+}
 
 fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2',
  { switches => ['-IBla2'] }, '-I');
-fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2',
- { switches => ['-IFoo::Bar2'] }, '-I with colons');
+SKIP: {
+  skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS';
+  fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2',
+   { switches => ['-IFoo::Bar2'] }, '-I with colons');
+}
End of Patch.

Change 18508: Re: 18457 on cygwin/20030113

[H.Merijn Brand]

Change 18508 by merijn@merijn-l1 on 2003/01/17 14:12:53

Subject: Re: 18457 on cygwin/20030113
From: Nick Ing-Simmons <[EMAIL PROTECTED]>
Date: Fri, 17 Jan 2003 15:10:34 +
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/t/io/tell.t#17 edit

Differences ...

 //depot/perl/t/io/tell.t#17 (xtext) 
Index: perl/t/io/tell.t
--- perl/t/io/tell.t#16~18481~  Tue Jan 14 04:40:24 2003
+++ perl/t/io/tell.tFri Jan 17 06:12:53 2003
@@ -103,7 +103,7 @@
 
 close($tst);
 open($tst,">$written")  || die "Cannot open $written:$!";
-binmode $TST if $Is_Dosish;
+binmode $tst if $Is_Dosish;
 
 if (tell($tst) == 0) { print "ok 24\n"; } else { print "not ok 24\n"; }
 
@@ -118,7 +118,7 @@
 close($tst);
 
 open($tst,"+>>$written")  || die "Cannot open $written:$!";
-binmode $TST if $Is_Dosish;
+binmode $tst if $Is_Dosish;
 
 if (0) 
 {
End of Patch.

Change 18538: [PATCH] Re: FreeBSD 5 hints patch

[H.Merijn Brand]

Change 18538 by merijn@merijn-l1 on 2003/01/21 16:54:00

Subject: [PATCH] Re: FreeBSD 5 hints patch
   From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
   Date: Mon, 30 Dec 2002 18:01:16 -0800
   Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/Configure#495 edit

Differences ...

 //depot/perl/Configure#495 (xtext) 
Index: perl/Configure
--- perl/Configure#494~18304~   Mon Dec 16 02:44:57 2002
+++ perl/Configure  Tue Jan 21 08:54:00 2003
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Dec 16 12:51:57 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Tue Jan 21 18:59:19 MET 2003 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ &4
+val="$define"
+else
+echo " NOT found." >&4
+val="$undef"
+fi
+$rm -f try.c try
+set i_malloc
+eval $setvar
 
 : see if stdlib is available
 set stdlib.h i_stdlib
End of Patch.

Change 18602: Updates to the openbsd hints

[H.Merijn Brand]

Change 18602 by merijn@merijn-l1 on 2003/01/30 06:31:50

Updates to the openbsd hints

Subject: [perl #20606] [no subject]
Date: 29 Jan 2003 18:38:37 -
From: "Todd C. Miller" (via RT) <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hints/openbsd.sh#17 edit

Differences ...

 //depot/perl/hints/openbsd.sh#17 (text) 
Index: perl/hints/openbsd.sh
--- perl/hints/openbsd.sh#16~18283~ Wed Dec 11 02:18:07 2002
+++ perl/hints/openbsd.sh   Wed Jan 29 22:31:50 2003
@@ -11,17 +11,20 @@
 # OpenBSD has a better malloc than perl...
 test "$usemymalloc" || usemymalloc='n'
 
-# Currently, vfork(2) is not a real win over fork(2) but this will
-# change starting with OpenBSD 2.7.
-usevfork='true'
-
-# setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS versions
-# in 4.4BSD.  Configure will find these but they are just emulated
-# and do not have the same semantics as in 4.3BSD.
-d_setregid=$undef
-d_setreuid=$undef
-d_setrgid=$undef
-d_setruid=$undef
+# Currently, vfork(2) is not a real win over fork(2).
+usevfork="$undef"
+
+# In OpenBSD < 3.3, the setre?[ug]id() are emulated using the
+# _POSIX_SAVED_IDS functionality which does not have the same
+# semantics as 4.3BSD.  Starting with OpenBSD 3.3, the original
+# semantics have been restored.
+case "$osvers" in
+[0-2].*|3.[0-2])
+   d_setregid=$undef
+   d_setreuid=$undef
+   d_setrgid=$undef
+   d_setruid=$undef
+esac
 
 #
 # Not all platforms support dynamic loading...
@@ -32,7 +35,7 @@
 #
 ARCH=`arch | sed 's/^OpenBSD.//'`
 case "${ARCH}-${osvers}" in
-alpha-2.[0-8]|mips-2.[0-8]|powerpc-2.[0-7]|m88k-*|vax-*)
+alpha-2.[0-8]|mips-2.[0-8]|powerpc-2.[0-7]|m88k-*|hppa-*|vax-*)
test -z "$usedl" && usedl=$undef
;;
 *)
@@ -85,6 +88,9 @@
 m88k)
optimize='-O0'
;;
+hppa)
+   optimize='-O0'
+   ;;
 *)
test "$optimize" || optimize='-O2'
;;
@@ -98,11 +104,6 @@
# any openbsd version dependencies with pthreads?
ccflags="-pthread $ccflags"
ldflags="-pthread $ldflags"
-   # Add -lpthread.  Also change from -lc to -lc_r
-   libswanted="$libswanted pthread"
-   libswanted=`echo " $libswanted "| sed -e 's/ c / c_r /' -e 's/^ //' -e 's/ 
$//'`
-   # This is strange.
-   usevfork="$undef"
 esac
 EOCBU
 
End of Patch.

Change 18647: Re: [perl #20606] [PATCH} openbsd hints

[H.Merijn Brand]

Change 18647 by merijn@merijn-l1 on 2003/02/03 16:14:00

Subject: Re: [perl #20606] [PATCH} openbsd hints
From: Abe Timmerman <[EMAIL PROTECTED]>
Date: Sun, 2 Feb 2003 18:27:57 +0100
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hints/openbsd.sh#18 edit

Differences ...

 //depot/perl/hints/openbsd.sh#18 (text) 
Index: perl/hints/openbsd.sh
--- perl/hints/openbsd.sh#17~18602~ Wed Jan 29 22:31:50 2003
+++ perl/hints/openbsd.sh   Mon Feb  3 08:14:00 2003
@@ -104,6 +104,14 @@
# any openbsd version dependencies with pthreads?
ccflags="-pthread $ccflags"
ldflags="-pthread $ldflags"
+   case "$osvers" in
+   [0-2].*|3.[0-2])
+   # Change from -lc to -lc_r
+   set `echo "X $libswanted " | sed 's/ c / c_r /'`
+   shift
+   libswanted="$*"
+   ;;
+   esac
 esac
 EOCBU
 
End of Patch.

Change 18693: More code cleanup.

[H.Merijn Brand]

Change 18693 by merijn@merijn-l1 on 2003/02/11 08:14:29

More code cleanup.

Subject: Re: New SV Flag
Date: Fri, 07 Feb 2003 09:57:43 +0100
From: "H.Merijn Brand" <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/sv.c#626 edit
... //depot/perl/sv.h#134 edit

Differences ...

 //depot/perl/sv.c#626 (text) 
Index: perl/sv.c
--- perl/sv.c#625~18691~Mon Feb 10 16:27:56 2003
+++ perl/sv.c   Tue Feb 11 00:14:29 2003
@@ -5398,7 +5398,7 @@
 Perl_sv_newref(pTHX_ SV *sv)
 {
 if (sv)
-   ATOMIC_INC(SvREFCNT(sv));
+   (SvREFCNT(sv))++;
 return sv;
 }
 
@@ -5416,8 +5416,6 @@
 void
 Perl_sv_free(pTHX_ SV *sv)
 {
-int refcount_is_zero;
-
 if (!sv)
return;
 if (SvREFCNT(sv) == 0) {
@@ -5436,8 +5434,7 @@
Perl_warner(aTHX_ packWARN(WARN_INTERNAL), "Attempt to free unreferenced 
scalar");
return;
 }
-ATOMIC_DEC_AND_TEST(refcount_is_zero, SvREFCNT(sv));
-if (!refcount_is_zero)
+if (--(SvREFCNT(sv)) > 0)
return;
 #ifdef DEBUGGING
 if (SvTEMP(sv)) {

 //depot/perl/sv.h#134 (text) 
Index: perl/sv.h
--- perl/sv.h#133~18595~Mon Jan 27 12:32:01 2003
+++ perl/sv.h   Tue Feb 11 00:14:29 2003
@@ -125,20 +125,17 @@
 #define SvFLAGS(sv)(sv)->sv_flags
 #define SvREFCNT(sv)   (sv)->sv_refcnt
 
-#define ATOMIC_INC(count) (++count)
-#define ATOMIC_DEC_AND_TEST(res, count) (res = (--count == 0))
-
 #if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
 #  define SvREFCNT_inc(sv) \
 ({ \
SV *nsv = (SV*)(sv);\
if (nsv)\
-ATOMIC_INC(SvREFCNT(nsv)); \
+(SvREFCNT(nsv))++; \
nsv;\
 })
 #else
 #  define SvREFCNT_inc(sv) \
-   ((PL_Sv=(SV*)(sv)), (PL_Sv && ATOMIC_INC(SvREFCNT(PL_Sv))), (SV*)PL_Sv)
+   ((PL_Sv=(SV*)(sv)), (PL_Sv && ++(SvREFCNT(PL_Sv))), (SV*)PL_Sv)
 #endif
 
 #define SvREFCNT_dec(sv)   sv_free((SV*)(sv))
End of Patch.

Change 18772: [perl@18752] warnings from CGI tests under cygwin

[H.Merijn Brand]

Change 18772 by [EMAIL PROTECTED] on 2003/02/25 12:12:14

Subject: [EMAIL PROTECTED] warnings from CGI tests under cygwin
From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Date: Wed, 19 Feb 2003 13:37:39 -0800
Message-ID: 

Affected files ...

... //depot/perl/lib/CGI.pm#36 edit

Differences ...

 //depot/perl/lib/CGI.pm#36 (text) 
Index: perl/lib/CGI.pm
--- perl/lib/CGI.pm#35~18494~   Thu Jan 16 12:11:35 2003
+++ perl/lib/CGI.pm Tue Feb 25 04:12:14 2003
@@ -149,8 +149,8 @@
 # The path separator is a slash, backslash or semicolon, depending
 # on the paltform.
 $SL = {
-   UNIX=>'/', OS2=>'\\', EPOC=>'/',
-   WINDOWS=>'\\', DOS=>'\\', MACINTOSH=>':', VMS=>'/'
+UNIX=> '/',  OS2 => '\\', EPOC  => '/', CYGWIN => '/',
+WINDOWS => '\\', DOS => '\\', MACINTOSH => ':', VMS=> '/'
 }->{$OS};
 
 # This no longer seems to be necessary
End of Patch.

Change 19020: Minor updates of Wolfgang's pack patch

[H.Merijn Brand]

Change 19020 by [EMAIL PROTECTED] on 2003/03/18 05:45:50

Minor updates of Wolfgang's pack patch

Subject: Re: pack changes and related fixes
From: Philip Newton <[EMAIL PROTECTED]>
Date: Tue, 18 Mar 2003 06:19:30 +0100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/embed.fnc#74 edit
... //depot/perl/pod/perldiag.pod#333 edit

Differences ...

 //depot/perl/embed.fnc#74 (text) 
Index: perl/embed.fnc
--- perl/embed.fnc#73~19010~Mon Mar 17 09:16:44 2003
+++ perl/embed.fnc  Mon Mar 17 21:45:50 2003
@@ -15,12 +15,12 @@
 :  p   function has a Perl_ prefix
 :  f   function takes printf style format string, varargs
 :  r   function never returns
-:   o  has no compatibility macro (#define foo Perl_foo)
-:   x  not exported
-:   X  explicitly exported
-:   M  may change
-:   E  visible to Perl core extensions
-:   b  binary backward compatibility; function is a macro
+:  o   has no compatibility macro (#define foo Perl_foo)
+:  x   not exported
+:  X   explicitly exported
+:  M   may change
+:  E   visible to Perl core extensions
+:  b   binary backward compatibility; function is a macro
 :  but has also Perl_ implementation (which is exported)
 :
 : Individual flags may be separated by whitespace.
@@ -947,8 +947,8 @@
 Ap |void   |sys_intern_init
 #endif
 
-Ap |char * |custom_op_name|OP* op
-Ap |char * |custom_op_desc|OP* op
+Ap |char * |custom_op_name |OP* op
+Ap |char * |custom_op_desc |OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
 pMX|int|sv_release_IVX |SV *sv
@@ -1019,7 +1019,7 @@
 s  |void   |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp
 #  if defined(PL_OP_SLAB_ALLOC)
 s  |void*  |Slab_Alloc |int m|size_t sz
-s  |void   |Slab_Free  |void *op
+s  |void   |Slab_Free  |void *op
 #  endif
 #endif
 
@@ -1060,12 +1060,12 @@
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-s   |I32|unpack_rec |tempsym_t* symptr|char *s|char *strbeg|char 
*strend|char **new_s
-s   |SV **  |pack_rec   |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist
+s  |I32|unpack_rec |tempsym_t* symptr|char *s|char *strbeg|char 
*strend|char **new_s
+s  |SV **  |pack_rec   |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist
 s  |SV*|mul128 |SV *sv|U8 m
 s  |I32|measure_struct |tempsym_t* symptr
 s  |char * |group_end  |char *pat|char *patend|char ender
-s   |char * |get_num|char *ppat|I32 *
+s  |char * |get_num|char *ppat|I32 *
 s  |bool   |next_symbol|tempsym_t* symptr
 s  |void   |doencodes  |SV* sv|char* s|I32 len
 s  |SV*|is_an_int  |char *s|STRLEN l
@@ -1220,7 +1220,7 @@
 s  |void   |del_sv |SV *p
 #  endif
 #  if !defined(NV_PRESERVES_UV)
-s  |int|sv_2iuv_non_preserve   |SV *sv|I32 numtype
+s  |int|sv_2iuv_non_preserve   |SV *sv|I32 numtype
 #  endif
 s  |I32|expect_number  |char** pattern
 #

 //depot/perl/pod/perldiag.pod#333 (text) 
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#332~19010~Mon Mar 17 09:16:44 2003
+++ perl/pod/perldiag.pod   Mon Mar 17 21:45:50 2003
@@ -64,7 +64,7 @@
 
 =item '!' allowed only after types %s
 
-(F) The '!' is allowed in pack() or unpack(9 only after certain types.
+(F) The '!' is allowed in pack() or unpack() only after certain types.
 See L.
 
 =item Ambiguous call resolved as CORE::%s(), qualify as such or use &
End of Patch.

Change 19042: [PATCH] readdir_r for VMS (was Re: [PATCH] configure.com: sig_num, etc.)

[H.Merijn Brand]

Change 19042 by [EMAIL PROTECTED] on 2003/03/21 07:45:54

Subject: [PATCH] readdir_r for VMS (was Re: [PATCH] configure.com: sig_num, 
etc.)
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Thu, 20 Mar 2003 23:03:36 -0600
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/configure.com#174 edit
... //depot/perl/vms/vms.c#121 edit
... //depot/perl/vms/vmsish.h#56 edit

Differences ...

 //depot/perl/configure.com#174 (text) 
Index: perl/configure.com
--- perl/configure.com#173~19023~   Tue Mar 18 13:22:03 2003
+++ perl/configure.com  Thu Mar 20 23:45:54 2003
@@ -5919,7 +5919,7 @@
 $ WC "d_gmtime_r='undef'"  ! leave undef'd; we use my_gmtime
 $ WC "d_localtime_r='undef'"   ! leave undef'd; we use my_localtime
 $ WC "d_random_r='undef'"
-$ WC "d_readdir_r='undef'" ! leave undef'd; we use Perl_readdir
+$ WC "d_readdir_r='define'"! always defined; we roll our own
 $ WC "d_readdir64_r='undef'"
 $ WC "d_setgrent_r='undef'"
 $ WC "d_sethostent_r='undef'"
@@ -5965,7 +5965,7 @@
 $ WC "gmtime_r_proto='0'"
 $ WC "localtime_r_proto='0'"
 $ WC "random_r_proto='0'"
-$ WC "readdir_r_proto='0'" ! leave undef'd; we use Perl_readdir
+$ WC "readdir_r_proto='REENTRANT_PROTO_I_TSR'"  ! always defined; we roll our own
 $ WC "readdir64_r_proto='0'"
 $ WC "setgrent_r_proto='0'"
 $ WC "sethostent_r_proto='0'"

 //depot/perl/vms/vms.c#121 (text) 
Index: perl/vms/vms.c
--- perl/vms/vms.c#120~18927~   Tue Mar 11 12:04:33 2003
+++ perl/vms/vms.c  Thu Mar 20 23:45:54 2003
@@ -4791,6 +4791,18 @@
  *  Minor modifications to original routines.
  */
 
+/* readdir may have been redefined by reentr.h, so make sure we get
+ * the local version for what we do here.
+ */
+#ifdef readdir
+# undef readdir
+#endif
+#if !defined(PERL_IMPLICIT_CONTEXT)
+# define readdir Perl_readdir
+#else
+# define readdir(a) Perl_readdir(aTHX_ a)
+#endif
+
 /* Number of elements in vms_versions array */
 #define VERSIZE(e) (sizeof e->vms_versions / sizeof e->vms_versions[0])
 
@@ -4833,6 +4845,12 @@
 dd->pat.dsc$w_length = strlen(dd->pattern);
 dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
 dd->pat.dsc$b_class = DSC$K_CLASS_S;
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+New(1308,dd->mutex,1,perl_mutex);
+MUTEX_INIT( (perl_mutex *) dd->mutex );
+#else
+dd->mutex = NULL;
+#endif
 
 return dd;
 }  /* end of opendir() */
@@ -4858,6 +4876,10 @@
 {
 (void)lib$find_file_end(&dd->context);
 Safefree(dd->pattern);
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+MUTEX_DESTROY( (perl_mutex *) dd->mutex );
+Safefree(dd->mutex);
+#endif
 Safefree((char *)dd);
 }
 /*}}}*/
@@ -4969,6 +4991,28 @@
 return &dd->entry;
 
 }  /* end of readdir() */
+/*}}}*/
+
+/*
+ *  Read the next entry from the directory -- thread-safe version.
+ */
+/*{{{ int readdir_r(DIR *dd, struct dirent *entry, struct dirent **result)*/
+int
+Perl_readdir_r(pTHX_ DIR *dd, struct dirent *entry, struct dirent **result)
+{
+int retval;
+
+MUTEX_LOCK( (perl_mutex *) dd->mutex );
+
+entry = readdir(dd);
+*result = entry;
+retval = ( *result == NULL ? errno : 0 );
+
+MUTEX_UNLOCK( (perl_mutex *) dd->mutex );
+
+return retval;
+
+}  /* end of readdir_r() */
 /*}}}*/
 
 /*

 //depot/perl/vms/vmsish.h#56 (text) 
Index: perl/vms/vmsish.h
--- perl/vms/vmsish.h#55~16701~ Sun May 19 19:23:03 2002
+++ perl/vms/vmsish.h   Thu Mar 20 23:45:54 2003
@@ -146,6 +146,7 @@
 #define my_getpwuidPerl_my_getpwuid
 #define my_flush   Perl_my_flush
 #define readdirPerl_readdir
+#define readdir_r  Perl_readdir_r
 #else
 #define my_getenv_len(a,b,c)   Perl_my_getenv_len(aTHX_ a,b,c)
 #define vmssetenv(a,b,c)   Perl_vmssetenv(aTHX_ a,b,c)
@@ -191,6 +192,7 @@
 #define my_getpwuid(a) Perl_my_getpwuid(aTHX_ a)
 #define my_flush(a)Perl_my_flush(aTHX_ a)
 #define readdir(a) Perl_readdir(aTHX_ a)
+#define readdir_r(a,b,c)   Perl_readdir_r(aTHX_ a,b,c)
 #endif
 #define my_gconvertPerl_my_gconvert
 #define telldirPerl_telldir
@@ -563,6 +565,7 @@
 char   *pattern;
 struct dirent  entry;
 struct dsc$descriptor_spat;
+void   *mutex;
 } DIR;
 
 #define rewinddir(dirp)seekdir((dirp), 0)
@@ -778,6 +781,7 @@
 intPerl_my_utime (pTHX_ char *, struct utimbuf *);
 void   Perl_vms_image_init (int *, char ***);
 struct dirent *Perl_readdir (pTHX_ DIR *);
+intPerl_readdir_r(pTHX_ DIR *, struct dirent *, struct dirent **);
 long   telldir (DIR *);
 void   Perl_seekdir (pTHX_ DIR *, long);
 void   closedir (DIR *);
End of Patch.

Change 19055: no more 'make install && make test' with shared libperl.so on Linux

[H.Merijn Brand]

Change 19055 by [EMAIL PROTECTED] on 2003/03/24 07:05:39

Subject: no more 'make install && make test' with shared libperl.so on Linux
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Sat, 22 Mar 2003 22:49:49 +0200
Message-ID: <[EMAIL PROTECTED]>

This is a slightly more defensive patch than Chip's patch that
fell through the cracks, but does the same
Subject: Shared libperl.so and build issues
From: Chip Turner <[EMAIL PROTECTED]>
Date: Tue 31 Dec 2002 17:21

Affected files ...

... //depot/perl/Makefile.SH#261 edit

Differences ...

 //depot/perl/Makefile.SH#261 (text) 
Index: perl/Makefile.SH
--- perl/Makefile.SH#260~18880~ Mon Mar 10 08:17:50 2003
+++ perl/Makefile.SHSun Mar 23 23:05:39 2003
@@ -110,6 +110,9 @@
 case "$osname" in
 os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth"
;;
+linux)
+   ldlibpth="LD_PRELOAD=\"\$\$LD_PRELOAD `pwd`/$libperl\" $ldlibpth"
+   ;;
 esac
 
 : Prepare dependency lists for Makefile.
End of Patch.

Change 19054: [PATCH bleadperl] vms.c thread clean-up

[H.Merijn Brand]

Change 19054 by [EMAIL PROTECTED] on 2003/03/24 06:54:23

Subject: [PATCH bleadperl] vms.c thread clean-up
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sun, 23 Mar 2003 15:32:58 -0600
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/vms/vms.c#122 edit

Differences ...

 //depot/perl/vms/vms.c#122 (text) 
Index: perl/vms/vms.c
--- perl/vms/vms.c#121~19042~   Thu Mar 20 23:45:54 2003
+++ perl/vms/vms.c  Sun Mar 23 22:54:23 2003
@@ -4618,6 +4618,12 @@
   if (tabidx) { tabvec[tabidx] = NULL; env_tables = tabvec; }
 
   getredirection(argcp,argvp);
+#if defined(USE_ITHREADS) && ( defined(__DECC) || defined(__DECCXX) )
+  {
+# include 
+  (void) decc$set_reentrancy(C$C_MULTITHREAD);
+  }
+#endif
   return;
 }
 /*}}}*/
@@ -4845,7 +4851,7 @@
 dd->pat.dsc$w_length = strlen(dd->pattern);
 dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
 dd->pat.dsc$b_class = DSC$K_CLASS_S;
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
 New(1308,dd->mutex,1,perl_mutex);
 MUTEX_INIT( (perl_mutex *) dd->mutex );
 #else
@@ -4876,7 +4882,7 @@
 {
 (void)lib$find_file_end(&dd->context);
 Safefree(dd->pattern);
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
+#if defined(USE_ITHREADS)
 MUTEX_DESTROY( (perl_mutex *) dd->mutex );
 Safefree(dd->mutex);
 #endif
End of Patch.

Change 19060: [PATCH] lib/vmsish.t GMT bug fix

[H.Merijn Brand]

Change 19060 by [EMAIL PROTECTED] on 2003/03/26 13:13:23

Subject: [PATCH] lib/vmsish.t GMT bug fix
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 25 Mar 2003 22:52:58 -0600
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/vmsish.t#4 edit

Differences ...

 //depot/perl/lib/vmsish.t#4 (text) 
Index: perl/lib/vmsish.t
--- perl/lib/vmsish.t#3~16748~  Wed May 22 15:34:20 2002
+++ perl/lib/vmsish.t   Wed Mar 26 05:13:23 2003
@@ -114,6 +114,10 @@
   }
   {
  use_ok('vmsish qw(time)');
+
+ # but that didn't get it in our current scope
+ use vmsish qw(time);
+
  $vmstime   = time;
  @vmslocal  = localtime($vmstime);
  @vmsgmtime = gmtime($vmstime);
@@ -130,23 +134,23 @@
   # since it's unlikely local time will differ from UTC by so small
   # an amount, and it renders the test resistant to delays from
   # things like stat() on a file mounted over a slow network link.
-  ok($utctime - $vmstime +$offset <= 10,"(time) UTC:$utctime VMS:$vmstime");
+  ok(abs($utctime - $vmstime + $offset) <= 10,"(time) UTC: $utctime VMS: $vmstime");
 
   $utcval = $utclocal[5] * 31536000 + $utclocal[7] * 86400 +
 $utclocal[2] * 3600 + $utclocal[1] * 60 + $utclocal[0];
   $vmsval = $vmslocal[5] * 31536000 + $vmslocal[7] * 86400 +
 $vmslocal[2] * 3600 + $vmslocal[1] * 60 + $vmslocal[0];
-  ok($vmsval - $utcval + $offset <= 10, "(localtime)");
+  ok(abs($vmsval - $utcval + $offset) <= 10, "(localtime) UTC: $utcval  VMS: 
$vmsval");
   print "# UTC: @utclocal\n# VMS: @vmslocal\n";
 
   $utcval = $utcgmtime[5] * 31536000 + $utcgmtime[7] * 86400 +
 $utcgmtime[2] * 3600 + $utcgmtime[1] * 60 + $utcgmtime[0];
   $vmsval = $vmsgmtime[5] * 31536000 + $vmsgmtime[7] * 86400 +
 $vmsgmtime[2] * 3600 + $vmsgmtime[1] * 60 + $vmsgmtime[0];
-  ok($vmsval - $utcval + $offset <= 10, "(gmtime)");
+  ok(abs($vmsval - $utcval + $offset) <= 10, "(gmtime) UTC: $utcval  VMS: $vmsval");
   print "# UTC: @utcgmtime\n# VMS: @vmsgmtime\n";
 
-  ok($vmsmtime - $utcmtime + $offset <= 10,"(stat) UTC: $utcmtime  VMS: $vmsmtime");
+  ok(abs($utcmtime - $vmsmtime + $offset) <= 10,"(stat) UTC: $utcmtime  VMS: 
$vmsmtime");
 }
 }
 
End of Patch.

Change 19113: Implemented AIX longdouble support in hints/aix.sh, which now

[H.Merijn Brand]

Change 19113 by [EMAIL PROTECTED] on 2003/04/01 14:12:33

Implemented AIX longdouble support in hints/aix.sh, which now
actually work.  Thanks to John L. Allen for the hint.

Subject: Re: AIX longdoubles
From: "H.Merijn Brand" <[EMAIL PROTECTED]>
Date: Tue, 01 Apr 2003 17:18:57 +0200
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hints/aix.sh#88 edit

Differences ...

 //depot/perl/hints/aix.sh#88 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#87~18598~ Tue Jan 28 12:43:02 2003
+++ perl/hints/aix.sh   Tue Apr  1 06:12:33 2003
@@ -209,6 +209,24 @@
 # the required -bE:$installarchlib/CORE/perl.exp is added by
 # libperl.U (Configure) later.
 
+case "$use64bitall" in
+$define|true|[yY]*) use64bitint="$define" ;;
+esac
+
+case "$usemorebits" in
+$define|true|[yY]*) use64bitint="$define"; uselongdouble="$define" ;;
+esac
+
+case $cc_type in
+vac|xlc)
+   case "$uselongdouble" in
+   $define|true|[yY]*)
+   ccflags="$ccflags -qlongdouble"
+   libswanted="c128 $libswanted"
+   ;;
+   esac
+esac
+
 case "$cc" in
 *gcc*) ;;
 cc*|xlc*) # cc should've been set by line 116 or so if empty.
End of Patch.

Change 19132: #19122 should have been tested on non-glibc system (like AIX)

[H.Merijn Brand]

Change 19132 by [EMAIL PROTECTED] on 2003/04/02 11:28:02

#19122 should have been tested on non-glibc system (like AIX)

Affected files ...

... //depot/perl/pp.c#377 edit

Differences ...

 //depot/perl/pp.c#377 (text) 
Index: perl/pp.c
--- perl/pp.c#376~19122~Tue Apr  1 08:36:52 2003
+++ perl/pp.c   Wed Apr  2 03:28:02 2003
@@ -3432,8 +3432,8 @@
/* work around glibc-2.2.5 bug */
PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits = 0;
}
-}
 #endif
+}
 # endif /* HAS_CRYPT_R */
 #   endif /* USE_ITHREADS */
 #   ifdef FCRYPT
End of Patch.

Change 19142: Re: [PATCH 5.8.0 DOC] Fix missing functions when splitting perlfunc

[H.Merijn Brand]

Change 19142 by [EMAIL PROTECTED] on 2003/04/03 08:50:55

Subject: Re: [PATCH 5.8.0 DOC] Fix missing functions when splitting perlfunc
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Date: Thu, 03 Apr 2003 08:28:52 +0200
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Pod/t/Functions.t#3 edit

Differences ...

 //depot/perl/lib/Pod/t/Functions.t#3 (text) 
Index: perl/lib/Pod/t/Functions.t
--- perl/lib/Pod/t/Functions.t#2~14058~ Fri Jan  4 11:48:09 2002
+++ perl/lib/Pod/t/Functions.t  Thu Apr  3 00:50:55 2003
@@ -80,7 +80,7 @@
  sprintf, substr, tr///, uc, ucfirst, y///
 
 Regular expressions and pattern matching:
- m//, pos, qr/PATTERN/, quotemeta, s///, split, study
+ m//, pos, qr/STRING/, quotemeta, s///, split, study
 
 Numeric functions:
  abs, atan2, cos, exp, hex, int, log, oct, rand, sin, sqrt,
@@ -109,7 +109,7 @@
 Functions for filehandles, files, or directories:
  -X, chdir, chmod, chown, chroot, fcntl, glob, ioctl, link,
  lstat, mkdir, open, opendir, readlink, rename, rmdir,
- stat, symlink, umask, unlink, utime
+ stat, symlink, sysopen, umask, unlink, utime
 
 Keywords related to control flow of your perl program:
  caller, continue, die, do, dump, eval, exit, goto, last,
@@ -124,14 +124,15 @@
 
 Functions for processes and process groups:
  alarm, exec, fork, getpgrp, getppid, getpriority, kill,
- pipe, qx/STRING/, setpgrp, setpriority, sleep, system,
- times, wait, waitpid
+ pipe, qx/STRING/, readpipe, setpgrp, setpriority, sleep,
+ system, times, wait, waitpid
 
 Keywords related to perl modules:
  do, import, no, package, require, use
 
 Keywords related to classes and object-orientedness:
- bless, dbmclose, dbmopen, package, ref, tie, untie, use
+ bless, dbmclose, dbmopen, package, ref, tie, tied, untie,
+ use
 
 Low-level socket functions:
  accept, bind, connect, getpeername, getsockname,
End of Patch.

Change 19143: [PATCH] VMS %ENV fix (follow-up to 18852)

[H.Merijn Brand]

Change 19143 by [EMAIL PROTECTED] on 2003/04/03 08:55:33

Subject: [PATCH] VMS %ENV fix (follow-up to 18852)
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Wed, 02 Apr 2003 18:09:03 -0600
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/vms/vms.c#123 edit
... //depot/perl/vms/vmsish.h#57 edit

Differences ...

 //depot/perl/vms/vms.c#123 (text) 
Index: perl/vms/vms.c
--- perl/vms/vms.c#122~19054~   Sun Mar 23 22:54:23 2003
+++ perl/vms/vms.c  Thu Apr  3 00:55:33 2003
@@ -262,7 +262,7 @@
 }
   }
   else if (!ivlnm) {
-if (idx == 0) {
+if ( (idx == 0) && (flags & PERL__TRNENV_JOIN_SEARCHLIST) ) {
   midx = my_maxidx((char *) lnm);
   for (idx = 0, cp1 = eqv; idx <= midx; idx++) {
 lnmlst[1].bufadr = cp1;
@@ -290,7 +290,6 @@
   (retsts == SS$_NOLOGNAM)) { continue; }
 }
 else {
- idx -= 1;
   retsts = sys$trnlnm(&attr,tabvec[curtab],&lnmdsc,&acmode,lnmlst);
   if (retsts == SS$_IVLOGNAM) { ivlnm = 1; continue; }
   if (retsts == SS$_NOLOGNAM) continue;
@@ -341,7 +340,7 @@
 char uplnm[LNM$C_NAMLENGTH+1], *cp1, *cp2, *eqv;
 unsigned long int idx = 0;
 int trnsuccess, success, secure, saverr, savvmserr;
-int midx;
+int midx, flags;
 SV *tmpsv;
 
 midx = my_maxidx((char *) lnm) + 1;
@@ -370,27 +369,43 @@
   return eqv;
 }
 else {
-  if ((cp2 = strchr(lnm,';')) != NULL) {
-strcpy(uplnm,lnm);
-uplnm[cp2-lnm] = '\0';
-idx = strtoul(cp2+1,NULL,0) + 1;
-lnm = uplnm;
-  }
   /* Impose security constraints only if tainting */
   if (sys) {
 /* Impose security constraints only if tainting */
 secure = PL_curinterp ? PL_tainting : will_taint;
 saverr = errno;  savvmserr = vaxc$errno;
   }
-  else secure = 0;
-  success = vmstrnenv(lnm,eqv,idx,
-  secure ? fildev : NULL,
+  else {
+secure = 0;
+  }
+
+  flags = 
 #ifdef SECURE_INTERNAL_GETENV
-  secure ? PERL__TRNENV_SECURE : 0
+  secure ? PERL__TRNENV_SECURE : 0
 #else
- 0
+  0
 #endif
-);
+  ;
+
+  /* For the getenv interface we combine all the equivalence names
+   * of a search list logical into one value to acquire a maximum
+   * value length of 255*128 (assuming %ENV is using logicals).
+   */
+  flags |= PERL__TRNENV_JOIN_SEARCHLIST;
+
+  /* If the name contains a semicolon-delimited index, parse it
+   * off and make sure we only retrieve the equivalence name for 
+   * that index.  */
+  if ((cp2 = strchr(lnm,';')) != NULL) {
+strcpy(uplnm,lnm);
+uplnm[cp2-lnm] = '\0';
+idx = strtoul(cp2+1,NULL,0);
+lnm = uplnm;
+flags &= ~PERL__TRNENV_JOIN_SEARCHLIST;
+  }
+
+  success = vmstrnenv(lnm,eqv,idx,secure ? fildev : NULL,flags);
+
   /* Discard NOLOGNAM on internal calls since we're often looking
* for an optional name, and this "error" often shows up as the
* (bogus) exit status for a die() call later on.  */
@@ -408,7 +423,7 @@
 {
 char *buf, *cp1, *cp2;
 unsigned long idx = 0;
-int midx;
+int midx, flags;
 static char *__my_getenv_len_eqv = NULL;
 int secure, saverr, savvmserr;
 SV *tmpsv;
@@ -440,26 +455,35 @@
   return buf;
 }
 else {
-  if ((cp2 = strchr(lnm,';')) != NULL) {
-strcpy(buf,lnm);
-buf[cp2-lnm] = '\0';
-idx = strtoul(cp2+1,NULL,0) + 1;
-lnm = buf;
-  }
   if (sys) {
 /* Impose security constraints only if tainting */
 secure = PL_curinterp ? PL_tainting : will_taint;
 saverr = errno;  savvmserr = vaxc$errno;
   }
-  else secure = 0;
-  *len = vmstrnenv(lnm,buf,idx,
-   secure ? fildev : NULL,
+  else {
+secure = 0;
+  }
+
+  flags = 
 #ifdef SECURE_INTERNAL_GETENV
-   secure ? PERL__TRNENV_SECURE : 0
+  secure ? PERL__TRNENV_SECURE : 0
 #else
-  0
+  0
 #endif
-  );
+  ;
+
+  flags |= PERL__TRNENV_JOIN_SEARCHLIST;
+
+  if ((cp2 = strchr(lnm,';')) != NULL) {
+strcpy(buf,lnm);
+buf[cp2-lnm] = '\0';
+idx = strtoul(cp2+1,NULL,0);
+lnm = buf;
+flags &= ~PERL__TRNENV_JOIN_SEARCHLIST;
+  }
+
+  *len = vmstrnenv(lnm,buf,idx,secure ? fildev : NULL,flags);
+
   /* Discard NOLOGNAM on internal calls since we're often looking
* for an optional name, and this "error" often shows up as the
* (bogus) exit status for a die() call later on.  */

 //depot/perl/vms/vmsish.h#57 (text) 
Index: perl/

Change 19696: Perl *is* 100% 64bit compliant on HP-UX 11.00 and up (as long

[H.Merijn Brand]

Change 19696 by [EMAIL PROTECTED] on 2003/06/06 12:21:43

Perl *is* 100% 64bit compliant on HP-UX 11.00 and up (as long
as the compiler supports it)

Affected files ...

... //depot/perl/README.hpux#40 edit

Differences ...

 //depot/perl/README.hpux#40 (text) 
Index: perl/README.hpux
--- perl/README.hpux#39~18231~  Mon Dec  2 08:00:12 2002
+++ perl/README.hpuxFri Jun  6 05:21:43 2003
@@ -401,11 +401,15 @@
 versions of Unix.  Once this is complete, scalar variables will be able
 to hold numbers larger than 2^32 with complete precision.
 
-As of the date of this document, Perl is not 64-bit compliant on HP-UX.
+As of the date of this document, Perl is fully 64-bit compliant on
+HP-UX 11.00 and up for both ccc- and gcc builds.
 
 Should a user wish to experiment with compiling Perl in the LP64
 environment, use the -Duse64bitall flag to Configure.  This will force
 Perl to be compiled in a pure LP64 environment (via the +DD64 flag).
+(Note that these flags will only work with HP's ANSI C compiler.  If
+you want to compile Perl using gcc, you will have to get a version of
+the compiler that support 64-bit operations.)
 
 You can also use the -Duse64bitint flag to Configure.  Although there
 are some minor differences between compiling Perl with this flag versus
@@ -417,10 +421,6 @@
 questions about 64-bit numbers when Configure asks you, you may get a
 configuration that cannot be compiled, or that does not function as
 expected.
-
-(Note that these Configure flags will only work with HP's ANSI C
-compiler.  If you want to compile Perl using gcc, you will have to get a
-version of the compiler that support 64-bit operations.)
 
 =head2 Oracle on HP-UX
 
End of Patch.

Change 19629: [PATCH] Re: a2p is linked against too many libraries

[H.Merijn Brand]

Change 19629 by [EMAIL PROTECTED] on 2003/05/28 12:24:42

Subject: [PATCH] Re: a2p is linked against too many libraries
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Wed, 28 May 2003 09:20:06 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/x2p/Makefile.SH#34 edit

Differences ...

 //depot/perl/x2p/Makefile.SH#34 (xtext) 
Index: perl/x2p/Makefile.SH
--- perl/x2p/Makefile.SH#33~18880~  Mon Mar 10 08:17:50 2003
+++ perl/x2p/Makefile.SHWed May 28 05:24:42 2003
@@ -39,7 +39,7 @@
 #mallocobj = $mallocobj
 shellflags = $shellflags
 
-libs = $libs
+libs = $perllibs
 
 $make_set_make
 # grrr
End of Patch.

Change 19671: Re: [PATCH] perl.h, README.cygwin: Cygwin O_TEXT <> O_BINARY issue

[H.Merijn Brand]

Change 19671 by [EMAIL PROTECTED] on 2003/06/03 08:27:07

Subject: Re: [PATCH] perl.h, README.cygwin: Cygwin O_TEXT <> O_BINARY issue
From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Date: Tue, 03 Jun 2003 01:55:06 -0700
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/README.cygwin#31 edit

Differences ...

 //depot/perl/README.cygwin#31 (text) 
Index: perl/README.cygwin
--- perl/README.cygwin#30~19654~Sun Jun  1 00:37:50 2003
+++ perl/README.cygwin  Tue Jun  3 01:27:07 2003
@@ -182,8 +182,8 @@
 
 =item * C<-Uuseperlio>
 
-Undefining this symbol disables the PerlIO abstraction, PerlIO is now the
-default, it is not recommended to disable PerlIO.
+Undefining this symbol disables the PerlIO abstraction.  PerlIO is now the
+default; it is not recommended to disable PerlIO.
 
 =item * C<-Dusemultiplicity>
 
@@ -219,7 +219,7 @@
 
 Use this to build perl outside of the source tree.  This works with Cygwin.
 Details can be found in the F document.  This is the recommended 
-way to build perl form sources.
+way to build perl from sources.
 
 =back
 
End of Patch.

Change 19741: [PATCH: perl@19733] fix vmsish.t #25 by letting $0 find itself in the face of chdir() calls

[H.Merijn Brand]

Change 19741 by [EMAIL PROTECTED] on 2003/06/11 14:06:49

Subject: [PATCH: [EMAIL PROTECTED] fix vmsish.t #25 by letting $0 find itself 
in the face of chdir() calls
From: [EMAIL PROTECTED]
Date: Wed, 11 Jun 2003 09:00:34 -0400
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/vmsish.t#5 edit

Differences ...

 //depot/perl/lib/vmsish.t#5 (text) 
Index: perl/lib/vmsish.t
--- perl/lib/vmsish.t#4~19060~  Wed Mar 26 05:13:23 2003
+++ perl/lib/vmsish.t   Wed Jun 11 07:06:49 2003
@@ -112,6 +112,19 @@
 eval "END { \$ENV{'SYS\$TIMEZONE_DIFFERENTIAL'} = $oldtz; }";
 gmtime(0); # Force reset of tz offset
   }
+  # This test script might have been invoked in at least one of four different ways:
+  # perl lib/vmsish.t
+  # perl [.lib]vmsish.t
+  # set def [.t] && perl ../lib/vmsish.t
+  # set def [.t] && perl [-.lib]vmsish.t
+  # In the following we attempt to find ourselves without resorting to VMS::Filespec.
+  # Note that the chdir in the BEGIN block above complicates matters.
+  my $self = $0;
+  if ( ! -e $self && -e "../$0" ) { $self = "../$0"; }
+  if ( ! -e $self ) {
+  $self =~ s/\[//;
+  $self = "[-$self";
+  }
   {
  use_ok('vmsish qw(time)');
 
@@ -121,12 +134,12 @@
  $vmstime   = time;
  @vmslocal  = localtime($vmstime);
  @vmsgmtime = gmtime($vmstime);
- $vmsmtime  = (stat $0)[9];
+ $vmsmtime  = (stat $self)[9];
   }
   $utctime   = time;
   @utclocal  = localtime($vmstime);
   @utcgmtime = gmtime($vmstime);
-  $utcmtime  = (stat $0)[9];
+  $utcmtime  = (stat $self)[9];
   
   $offset = $ENV{'SYS$TIMEZONE_DIFFERENTIAL'};
 
End of Patch.

Change 19848: [PATCH] lib/Perldoc.pm patch for Cygwin Bleadperl

[H.Merijn Brand]

Change 19848 by [EMAIL PROTECTED] on 2003/06/24 08:06:57

Subject: [PATCH] lib/Perldoc.pm patch for Cygwin Bleadperl
From: "Gerrit P. Haase" <[EMAIL PROTECTED]>
Date: Tue, 24 Jun 2003 11:00:34 +0200
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Pod/Perldoc.pm#6 edit

Differences ...

 //depot/perl/lib/Pod/Perldoc.pm#6 (text) 
Index: perl/lib/Pod/Perldoc.pm
--- perl/lib/Pod/Perldoc.pm#5~18969~Thu Mar 13 21:43:34 2003
+++ perl/lib/Pod/Perldoc.pm Tue Jun 24 01:06:57 2003
@@ -44,6 +44,7 @@
  *IS_MSWin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &IS_MSWin32;
  *IS_Dos = $^O eq 'dos' ? \&TRUE : \&FALSE unless defined &IS_Dos;
  *IS_OS2 = $^O eq 'os2' ? \&TRUE : \&FALSE unless defined &IS_OS2;
+ *IS_Cygwin  = $^O eq 'cygwin'  ? \&TRUE : \&FALSE unless defined &IS_Cygwin;
 }
 
 $Temp_File_Lifetime ||= 60 * 60 * 24 * 5;
@@ -358,7 +359,7 @@
 
   $self->opt_M_with('Pod::Perldoc::ToPod');   # the always-there fallthru
   $self->opt_o_with('text');
-  $self->opt_o_with('man') unless IS_MSWin32 || IS_Dos
+  $self->opt_o_with('man') unless IS_MSWin32 || IS_Dos || IS_Cygwin
|| !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i);
 
   return;
End of Patch.

Change 20175: Re: [PATCH] test clean-up for VMS

[H.Merijn Brand]

Change 20175 by [EMAIL PROTECTED] on 2003/07/21 14:26:43

Subject: Re: [PATCH] test clean-up for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sun, 20 Jul 2003 10:43:32 -0500
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/PerlIO/t/encoding.t#16 edit
... //depot/perl/lib/File/Spec/t/rel2abs2rel.t#8 edit
... //depot/perl/lib/FileCache/t/01open.t#3 edit
... //depot/perl/lib/FileCache/t/02maxopen.t#2 edit
... //depot/perl/lib/FileCache/t/03append.t#3 edit
... //depot/perl/t/io/argv.t#19 edit
... //depot/perl/t/op/stat.t#70 edit
... //depot/perl/t/uni/write.t#4 edit

Differences ...

 //depot/perl/ext/PerlIO/t/encoding.t#16 (text) 
Index: perl/ext/PerlIO/t/encoding.t
--- perl/ext/PerlIO/t/encoding.t#15~19600~  Fri May 23 09:55:09 2003
+++ perl/ext/PerlIO/t/encoding.tMon Jul 21 07:26:43 2003
@@ -151,5 +151,5 @@
 print "ok 14\n";
 
 END {
-unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
+1 while unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
 }

 //depot/perl/lib/File/Spec/t/rel2abs2rel.t#8 (text) 
Index: perl/lib/File/Spec/t/rel2abs2rel.t
--- perl/lib/File/Spec/t/rel2abs2rel.t#7~15723~ Wed Apr  3 14:33:09 2002
+++ perl/lib/File/Spec/t/rel2abs2rel.t  Mon Jul 21 07:26:43 2003
@@ -14,8 +14,8 @@
 close(F);
 }
 END {
-unlink("rel2abs2rel$$.pl");
-unlink("rel2abs2rel$$.tmp");
+1 while unlink("rel2abs2rel$$.pl");
+1 while unlink("rel2abs2rel$$.tmp");
 }
 
 use Config;

 //depot/perl/lib/FileCache/t/01open.t#3 (text) 
Index: perl/lib/FileCache/t/01open.t
--- perl/lib/FileCache/t/01open.t#2~19839~  Sun Jun 22 09:31:05 2003
+++ perl/lib/FileCache/t/01open.t   Mon Jul 21 07:26:43 2003
@@ -10,7 +10,7 @@
 END;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 

 //depot/perl/lib/FileCache/t/02maxopen.t#2 (text) 
Index: perl/lib/FileCache/t/02maxopen.t
--- perl/lib/FileCache/t/02maxopen.t#1~19783~   Sat Jun 14 09:30:23 2003
+++ perl/lib/FileCache/t/02maxopen.tMon Jul 21 07:26:43 2003
@@ -12,7 +12,7 @@
 plan tests=>5;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 {# Test 2: that we actually adhere to maxopen

 //depot/perl/lib/FileCache/t/03append.t#3 (text) 
Index: perl/lib/FileCache/t/03append.t
--- perl/lib/FileCache/t/03append.t#2~19839~Sun Jun 22 09:31:05 2003
+++ perl/lib/FileCache/t/03append.t Mon Jul 21 07:26:43 2003
@@ -10,7 +10,7 @@
 END;
 }
 END{
-  unlink @files;
+  1 while unlink @files;
 }
 
 print "1..2\n";

 //depot/perl/t/io/argv.t#19 (xtext) 
Index: perl/t/io/argv.t
--- perl/t/io/argv.t#18~14601~  Fri Feb  8 06:14:16 2002
+++ perl/t/io/argv.tMon Jul 21 07:26:43 2003
@@ -127,6 +127,6 @@
 **PROG**
 
 END {
-unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
+1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp';
 }

 //depot/perl/t/op/stat.t#70 (xtext) 
Index: perl/t/op/stat.t
--- perl/t/op/stat.t#69~18997~  Sun Mar 16 10:07:30 2003
+++ perl/t/op/stat.tMon Jul 21 07:26:43 2003
@@ -40,7 +40,7 @@
 my $tmpfile_link = $tmpfile.'2';
 
 
-unlink $tmpfile;
+1 while unlink $tmpfile;
 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
 close FOO;
 
@@ -425,4 +425,8 @@
 like( $@, qr/^The stat preceding -l _ wasn't an lstat/,
'-l _ croaks after -T _' );
 unlink $linkname or print "# unlink $linkname failed: $!\n";
+}
+
+END {
+1 while unlink $tmpfile;
 }

 //depot/perl/t/uni/write.t#4 (text) 
Index: perl/t/uni/write.t
--- perl/t/uni/write.t#3~19097~ Sun Mar 30 21:00:07 2003
+++ perl/t/uni/write.t  Mon Jul 21 07:26:43 2003
@@ -101,4 +101,4 @@
 $bmulti$blite2
 EOEXPECT
 
-unlink 'Uni_write.tmp';
+1 while unlink 'Uni_write.tmp';
End of Patch.

Change 20299: README.hpux now mentions the http mirror for prebuilt gcc binaries

[H.Merijn Brand]

Change 20299 by [EMAIL PROTECTED] on 2003/07/29 10:57:37

README.hpux now mentions the http mirror for prebuilt gcc binaries

Affected files ...

... //depot/perl/README.hpux#42 edit

Differences ...

 //depot/perl/README.hpux#42 (text) 
Index: perl/README.hpux
--- perl/README.hpux#41~19700~  Fri Jun  6 15:31:50 2003
+++ perl/README.hpuxTue Jul 29 03:57:37 2003
@@ -301,8 +301,9 @@
 are often multiple versions of the same package available).
 
 Above mentioned distributions are depots. H.Merijn Brand has made prebuilt
-gcc binaries available on https://www.beepz.com/personal/merijn/ for
-HP-UX 10.20 and HP-UX 11.00 in both 32- and 64-bit versions. These are
+gcc binaries available on https://www.beepz.com/personal/merijn/ and/or
+http://www.cmve.net/~merijn/ for HP-UX 10.20 and HP-UX 11.00 in both 32-
+and 64-bit versions. Most likely 11i will be available soon. These are
 bzipped tar archives that also include recent GNU binutils and GNU gdb.
 Read the instructions on that page to rebuild gcc using itself.
 
End of Patch.

Change 20670: [PATCH Tie::File] turn the alarm off in the tests (was Re: maint @ 20617 (on VMS))

[H.Merijn Brand]

Change 20670 by [EMAIL PROTECTED] on 2003/08/13 08:54:45

Subject: [PATCH Tie::File] turn the alarm off in the tests (was Re: maint @ 
20617 (on VMS))
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 12 Aug 2003 21:12:00 -0500
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Tie/File/t/24_cache_loop.t#3 edit
... //depot/perl/lib/Tie/File/t/29_downcopy.t#3 edit
... //depot/perl/lib/Tie/File/t/29a_upcopy.t#2 edit

Differences ...

 //depot/perl/lib/Tie/File/t/24_cache_loop.t#3 (text) 
Index: perl/lib/Tie/File/t/24_cache_loop.t
--- perl/lib/Tie/File/t/24_cache_loop.t#2~15752~Fri Apr  5 10:37:32 2002
+++ perl/lib/Tie/File/t/24_cache_loop.t Wed Aug 13 01:54:45 2003
@@ -43,6 +43,7 @@
 alarm 5 unless $^P;
 @a = "record0" .. "record9";
 print "ok 3\n";
+alarm 0;
 
 END {
   undef $o;

 //depot/perl/lib/Tie/File/t/29_downcopy.t#3 (text) 
Index: perl/lib/Tie/File/t/29_downcopy.t
--- perl/lib/Tie/File/t/29_downcopy.t#2~19813~  Wed Jun 18 10:31:50 2003
+++ perl/lib/Tie/File/t/29_downcopy.t   Wed Aug 13 01:54:45 2003
@@ -273,7 +273,7 @@
   local $SIG{ALRM} = sub { die "Alarm clock" };
   my $a_retval = eval { alarm(5) unless $^P; $o->_downcopy($newdata, $pos, $len) };
   my $err = $@;
-  undef $o; untie @lines;
+  undef $o; untie @lines; alarm(0);
   if ($err) {
 if ($err =~ /^Alarm clock/) {
   print "# Timeout\n";

 //depot/perl/lib/Tie/File/t/29a_upcopy.t#2 (text) 
Index: perl/lib/Tie/File/t/29a_upcopy.t
--- perl/lib/Tie/File/t/29a_upcopy.t#1~19450~   Thu May  8 10:46:26 2003
+++ perl/lib/Tie/File/t/29a_upcopy.tWed Aug 13 01:54:45 2003
@@ -129,7 +129,7 @@
   local $SIG{ALRM} = sub { die "Alarm clock" };
   my $a_retval = eval { alarm(5) unless $^P; $o->_upcopy($src, $dst, $len) };
   my $err = $@;
-  undef $o; untie @lines;
+  undef $o; untie @lines; alarm(0);
   if ($err) {
 if ($err =~ /^Alarm clock/) {
   print "# Timeout\n";
End of Patch.

Change 20671: [PATCH] another VMS pod nit

[H.Merijn Brand]

Change 20671 by [EMAIL PROTECTED] on 2003/08/13 08:57:27

Subject: [PATCH] another VMS pod nit
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Wed, 13 Aug 2003 01:01:46 -0500
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/vms/descrip_mms.template#66 edit

Differences ...

 //depot/perl/vms/descrip_mms.template#66 (text) 
Index: perl/vms/descrip_mms.template
--- perl/vms/descrip_mms.template#65~20663~ Tue Aug 12 12:48:01 2003
+++ perl/vms/descrip_mms.template   Wed Aug 13 01:57:27 2003
@@ -858,6 +858,10 @@
@ If F$Search("[.lib]pod.dir").eqs."" Then Create/Directory [.lib.pod]
Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pod]
 
+[.lib.pod]perlgpl.pod : [.pod]perlgpl.pod
+   @ If F$Search("[.lib]pod.dir").eqs."" Then Create/Directory [.lib.pod]
+   Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pod]
+
 [.lib.pod]perlguts.pod : [.pod]perlguts.pod
@ If F$Search("[.lib]pod.dir").eqs."" Then Create/Directory [.lib.pod]
Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pod]
End of Patch.

Change 21041: [PATCH] Remove dublicated entry in AUTHORS

[H.Merijn Brand]

Change 21041 by [EMAIL PROTECTED] on 2003/09/05 04:50:44

Subject: [PATCH] Remove dublicated entry in AUTHORS
From: Ilya Martynov <[EMAIL PROTECTED]>
Date: Fri, 05 Sep 2003 00:49:57 +0400
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/AUTHORS#107 edit

Differences ...

 //depot/perl/AUTHORS#107 (text) 
Index: perl/AUTHORS
--- perl/AUTHORS#106~21027~ Thu Sep  4 01:54:40 2003
+++ perl/AUTHORSThu Sep  4 21:50:44 2003
@@ -250,7 +250,6 @@
 Gerrit P. Haase<[EMAIL PROTECTED]>
 Giles Lean <[EMAIL PROTECTED]>
 Gisle Aas  <[EMAIL PROTECTED]>
-Golubev I. N.  <[EMAIL PROTECTED]>
 Gordon J. Miller   <[EMAIL PROTECTED]>
 Grace Lee  <[EMAIL PROTECTED]>
 Graham Barr<[EMAIL PROTECTED]>
End of Patch.

Change 21043: Changed conflicting diff options

[H.Merijn Brand]

Change 21043 by [EMAIL PROTECTED] on 2003/09/05 11:18:20

Changed conflicting diff options

Affected files ...

... //depot/perl/patchlevel.h#453 edit

Differences ...

 //depot/perl/patchlevel.h#453 (text) 
Index: perl/patchlevel.h
--- perl/patchlevel.h#452~20174~Mon Jul 21 03:26:07 2003
+++ perl/patchlevel.h   Fri Sep  5 04:18:20 2003
@@ -51,7 +51,7 @@
please place your applied patch line after its dependencies. This
will help tracking of patch dependencies.
 
-   Please either use 'diff -u --context=0' if your diff supports
+   Please either use 'diff --unified=0' if your diff supports
that or edit the hunk of the diff output which adds your patch
to this list, to remove context lines which would give patch
problems. For instance, if the original context diff is
@@ -73,6 +73,7 @@
   *** 41,43 ***
   --- 41,44 ---
   +,"MINE001 - my new patch"
+   ,NULL
 };

(Note changes to line numbers as well as removal of context lines.)
End of Patch.

Change 21163: [perl #23778] hints/aix.sh

[H.Merijn Brand]

Change 21163 by [EMAIL PROTECTED] on 2003/09/10 15:31:27

Subject: [perl #23778] hints/aix.sh 
Date: 10 Sep 2003 16:30:32 -
From: "Gary L. Armstrong" (via RT) <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hints/aix.sh#90 edit

Differences ...

 //depot/perl/hints/aix.sh#90 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#89~19174~ Wed Apr  9 07:33:12 2003
+++ perl/hints/aix.sh   Wed Sep 10 08:31:27 2003
@@ -142,7 +142,7 @@
ccdlflags='-Xlinker'
if [ "X$gccversion" = "X" ]; then
  # Done too late in Configure if hinted
- gccversion=`$cc --version | sed 's/.*(GCC) *//`
+ gccversion=`$cc --version | sed 's/.*(GCC) *//'`
  fi
;;
 *) ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -v '\.msg\.[A-Za-z_]*\.' | 
awk '{print $1,$2}'`
End of Patch.

Change 21713: Simplified the reading

[H.Merijn Brand]

Change 21713 by [EMAIL PROTECTED] on 2003/11/13 09:25:15

Simplified the reading

Affected files ...

... //depot/perl/hints/solaris_2.sh#89 edit

Differences ...

 //depot/perl/hints/solaris_2.sh#89 (text) 
Index: perl/hints/solaris_2.sh
--- perl/hints/solaris_2.sh#88~21554~   Mon Oct 27 08:09:37 2003
+++ perl/hints/solaris_2.sh Thu Nov 13 01:25:15 2003
@@ -448,15 +448,12 @@
exit 1
;;
esac
-   ;;
-esac
+
 # gcc-2.8.1 on Solaris 8 with -Duse64bitint fails op/pat.t test 822
 # if we compile regexec.c with -O.  Turn off optimization for that one
 # file.  See hints/README.hints , especially 
 # =head2 Propagating variables to config.sh, method 3.
 #  A. Dougherty  May 24, 2002
-case "$use64bitint" in
-"$define")
 case "${gccversion}-${optimize}" in
 2.8*-O*)
# Honor a command-line override (rather unlikely)
End of Patch.

Change 21712: Enable hints to create call-back units that can act when

[H.Merijn Brand]

Change 21712 by [EMAIL PROTECTED] on 2003/11/13 09:22:21

Enable hints to create call-back units that can act when
a specific variable is *not* set (like -Uuselargefiles)

Affected files ...

... //depot/perl/Configure#551 edit
... //depot/perl/hints/README.hints#13 edit

Differences ...

 //depot/perl/Configure#551 (xtext) 
Index: perl/Configure
--- perl/Configure#550~21268~   Wed Sep 17 21:58:05 2003
+++ perl/Configure  Thu Nov 13 01:22:21 2003
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Thu Sep 18 09:10:02 EEST 2003 [metaconfig 3.0 PL70]
+# Generated on Thu Nov 13 11:29:28 MET 2003 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <&4
$cat >try.c <

Change 21783: remove hardcoded version number from cygwin/perlld.in

[H.Merijn Brand]

Change 21783 by [EMAIL PROTECTED] on 2003/11/24 21:24:46

Subject: remove hardcoded version number from cygwin/perlld.in
From: Yitzchak Scott-Thoennes <[EMAIL PROTECTED]>
Date: Mon, 24 Nov 2003 08:11:36 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/cygwin/Makefile.SHs#15 edit
... //depot/perl/cygwin/perlld.in#11 edit

Differences ...

 //depot/perl/cygwin/Makefile.SHs#15 (text) 
Index: perl/cygwin/Makefile.SHs
--- perl/cygwin/Makefile.SHs#14~14453~  Sun Jan 27 14:36:08 2002
+++ perl/cygwin/Makefile.SHsMon Nov 24 13:24:46 2003
@@ -53,8 +53,9 @@
 
 # perlld parameters
 #
-# this one is pretty mandatory
+# these ones are mandatory
 DLLWRAP = 'dllwrap'
+VERSION = '$version'
 
 # following are optional.
 WRAPDRIVER = gcc
@@ -73,7 +74,7 @@
-e s,@WRAPDRIVER@,\${WRAPDRIVER},g -e s,@DLLTOOL@,\${DLLTOOL},g \\
-e s,@AS@,\${AS},g -e s,@EXPORT_ALL@,\${EXPORT_ALL},g \\
-e s,@DEF_EXT@,\${DEF_EXT},g -e s,@EXP_EXT@,\${EXP_EXT},g \\
-   -e s,@LIB_EXT@,\${LIB_EXT},g \\
+   -e s,@LIB_EXT@,\${LIB_EXT},g -e s,@VERSION@,\${VERSION},g \\
${src}/cygwin/perlld.in >perlld
 
 !GROK!THIS!

 //depot/perl/cygwin/perlld.in#11 (text) 
Index: perl/cygwin/perlld.in
--- perl/cygwin/perlld.in#10~19623~ Mon May 26 04:19:38 2003
+++ perl/cygwin/perlld.in   Mon Nov 24 13:24:46 2003
@@ -46,7 +46,8 @@
 $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s = '5_9_0';
+  my $v_e_r_s = '@VERSION@';
+  $v_e_r_s =~ tr/./_/;
   if ( $dllname =~ /libperl.*/) { 
 $dllname ="cygperl$v_e_r_s.dll";
   } else {
End of Patch.

Change 17888: New low-price HP servers

[H.Merijn Brand]

Change 17888 by merijn@merijn-l1 on 2002/09/10 09:20:52

New low-price HP servers

Affected files ...

 //depot/perl/README.hpux#38 edit

Differences ...

 //depot/perl/README.hpux#38 (text) 
Index: perl/README.hpux
--- perl/README.hpux#37~17846~  Wed Sep  4 16:02:43 2002
+++ perl/README.hpuxTue Sep 10 02:20:52 2002
@@ -134,17 +134,18 @@
 D280, D370, D380, D390, D650, J220, J2240, J280, J282, J400, J410,
 J5000, J5500XM, J5600, J7000, J7600, K250, K260, K260-EG, K270, K360,
 K370, K380, K450, K460, K460-EG, K460-XP, K470, K570, K580, L1000,
-L2000, L3000, N4000, R380, R390, RP2400, RP2430, RP2450, RP2470,
-RP5400, RP5430, RP5450, RP5470, RP7400, RP7410, RP8400, SD16000,
-SD32000, SD64000, T540, T600, V2000, V2200, V2250, V2500, V2600
+L2000, L3000, N4000, R380, R390, RP2400, RP2405, RP2430, RP2450,
+RP2470, RP5400, RP5405, RP5430, RP5450, RP5470, RP7400, RP7405,
+RP7410, RP8400, SD16000, SD32000, SD64000, T540, T600, V2000, V2200,
+V2250, V2500, V2600
 
 Just before HP took over Compaq, some systems were renamed. Visit
 http://www.hp.com/products1/servers/server_names.html to see what
 the changes are, or will be.
 
 HP 9000 A-Class servers, now renamed HP Server rp2400 series.
-HP 9000 N-Class servers, now renamed HP Server rp7400.
 HP 9000 L-Class servers, now renamed HP Server rp5400 series.
+HP 9000 N-Class servers, now renamed HP Server rp7400.
 
 =head2 Itanium
 
End of Patch.

Change 17892: Callback behaviour in hints

[H.Merijn Brand]

Change 17892 by merijn@merijn-l1 on 2002/09/10 15:43:53

Callback behaviour in hints
Mon, 9 Sep 2002, Allen Smith

Affected files ...

 //depot/perl/hints/README.hints#12 edit

Differences ...

 //depot/perl/hints/README.hints#12 (text) 
Index: perl/hints/README.hints
--- perl/hints/README.hints#11~16092~   Mon Apr 22 18:05:37 2002
+++ perl/hints/README.hints Tue Sep 10 08:43:53 2002
@@ -297,7 +297,11 @@
 file can tuck this information away into a file UU/cc.cbu.  Then,
 after Configure prompts the user for the C compiler, it will load in
 and run the UU/cc.cbu "call-back" unit.  See hints/solaris_2.sh for an
-example.
+example. Some callbacks exist for other variables than cc, such as for
+uselongdouble. At the present time, these callbacks are only called if the
+variable in question is defined; however, this may change, so the scheme in
+hints/solaris_2.sh of checking to see if uselongdouble is defined is a good
+idea.
 
 =item Future status
 
End of Patch.

Change 17899: Re: [perl #17170] NetBSD and useshrplib config option

[H.Merijn Brand]

Change 17899 by merijn@merijn-l1 on 2002/09/12 15:22:06

Re: [perl #17170] NetBSD and useshrplib config option
Thu 12 Sep 2002 09:22, Rafael Garcia-Suarez

Affected files ...

 //depot/metaconfig/U/perl/libperl.U#8 edit
 //depot/perl/Porting/Glossary#138 edit

Differences ...

 //depot/metaconfig/U/perl/libperl.U#8 (text) 
Index: perl/libperl.U
--- perl/libperl.U#7~14606~ Fri Feb  8 11:18:41 2002
+++ perl/libperl.U  Thu Sep 12 08:22:06 2002
@@ -19,8 +19,8 @@
 ?S:library.
 ?S:.
 ?S:useshrplib:
-?S:This variable is set to 'yes' if the user wishes
-?S:to build a shared libperl, and 'no' otherwise.
+?S:This variable is set to 'true' if the user wishes
+?S:to build a shared libperl, and 'false' otherwise.
 ?S:.
 ?S:shrpenv:
 ?S:If the user builds a shared libperl.so, then we need to tell the

 //depot/perl/Porting/Glossary#138 (text) 
Index: perl/Porting/Glossary
--- perl/Porting/Glossary#137~17896~Wed Sep 11 01:31:45 2002
+++ perl/Porting/Glossary   Thu Sep 12 08:22:06 2002
@@ -4113,9 +4113,9 @@
 
 spitshell (spitshell.U):
This variable contains the command necessary to spit out a runnable
-   shell on this system.  It is either cat or a grep -v for # comments.
-
shell on this system.  It is either cat or a grep '-v' for # comments.
+
+srand48_r_proto (d_srand48_r.U):
This variable encodes the prototype of srand48_r.
It is zero if d_srand48_r is undef, and one of the
REENTRANT_PROTO_T_ABC macros of reentr.h if d_srand48_r
@@ -4441,8 +4441,8 @@
d_sfio without running into a "WHOA THERE".
 
 useshrplib (libperl.U):
-   This variable is set to 'yes' if the user wishes
-   to build a shared libperl, and 'no' otherwise.
+   This variable is set to 'true' if the user wishes
+   to build a shared libperl, and 'false' otherwise.
 
 usesocks (usesocks.U):
This variable conditionally defines the USE_SOCKS symbol,
End of Patch.

Change 17902: [PATCH perl@17882] configure.com needs d_modflproto

[H.Merijn Brand]

Change 17902 by merijn@merijn-l1 on 2002/09/13 07:47:29

[PATCH perl@17882] configure.com needs d_modflproto
Thu 12 Sep 2002 23:19, "Craig A. Berry"

Affected files ...

 //depot/perl/configure.com#167 edit

Differences ...

 //depot/perl/configure.com#167 (text) 
Index: perl/configure.com
--- perl/configure.com#166~17394~   Mon Jul  1 11:35:37 2002
+++ perl/configure.com  Fri Sep 13 00:47:29 2002
@@ -3003,6 +3003,7 @@
 $   d_isnan = "define"
 $   d_isnanl = "define"
 $   d_modfl = "define"
+$   d_modflproto = "define"
 $ ELSE
 $   d_PRId64 = "undef"
 $   d_PRIXU64 = "undef"
@@ -3023,6 +3024,7 @@
 $   d_isnan = "undef"
 $   d_isnanl = "undef"
 $   d_modfl = "undef"
+$   d_modflproto = "undef"
 $ ENDIF
 $!
 $! Now some that we build up
@@ -5326,6 +5328,7 @@
 $ WC "d_mktime='" + d_mktime + "'"
 $ WC "d_mmap='" + d_mmap + "'"
 $ WC "d_modfl='" + d_modfl + "'"
+$ WC "d_modflproto='" + d_modflproto + "'"
 $ WC "d_modfl_pow32_bug='undef'"
 $ WC "d_mprotect='" + d_mprotect + "'"
 $ WC "d_msg='undef'"
End of Patch.

Change 17944: nonosleep probes as per Jarkko's request

[H.Merijn Brand]

Change 17944 by merijn@merijn-l1 on 2002/09/30 08:29:33

nonosleep probes as per Jarkko's request

Affected files ...

 //depot/perl/Configure#486 edit
 //depot/perl/NetWare/config_H.wc#18 edit
 //depot/perl/Porting/config.sh#142 edit
 //depot/perl/Porting/config_H#143 edit
 //depot/perl/config_h.SH#263 edit
 //depot/perl/epoc/config.sh#75 edit
 //depot/perl/perl.h#475 edit
 //depot/perl/win32/config.bc#129 edit
 //depot/perl/win32/config.gc#128 edit
 //depot/perl/win32/config.vc#135 edit
 //depot/perl/win32/config.vc64#5 edit
 //depot/perl/win32/config_H.bc#127 edit
 //depot/perl/win32/config_H.gc#121 edit
 //depot/perl/win32/config_H.vc#124 edit
 //depot/perl/win32/config_H.vc64#7 edit
 //depot/perl/wince/config.ce#12 edit
 //depot/perl/wince/config_H.ce#10 edit

Differences ...

 //depot/perl/Configure#486 (xtext) 
Index: perl/Configure
--- perl/Configure#485~17941~   Sun Sep 29 05:11:06 2002
+++ perl/Configure  Mon Sep 30 01:29:33 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Fri Sep 13 16:29:01 METDST 2002 [metaconfig 3.0 PL70]
+# Generated on Mon Sep 30 10:11:20 METDST 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 17945: -Dgccansipedantic only for gcc 3+

[H.Merijn Brand]

Change 17945 by merijn@merijn-l1 on 2002/09/30 09:51:40

-Dgccansipedantic only for gcc 3+
Mon, 30 Sep 2002, Jarkko Hietaniemi <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Porting/pumpkin.pod#42 edit
 //depot/perl/cflags.SH#22 edit

Differences ...

 //depot/perl/Porting/pumpkin.pod#42 (text) 
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod#41~17925~  Thu Sep 26 02:15:55 2002
+++ perl/Porting/pumpkin.podMon Sep 30 02:51:40 2002
@@ -780,6 +780,10 @@
 any internal cpp flag to signify that -pedantic is being used, as it
 does for -ansi (__STRICT_ANSI__).
 
+Note that the -ansi and -pedantic are enabled only for version 3 (and
+later) of gcc, since even gcc version 2.95.4 finds lots of seemingly
+false "value computed not used" errors from Perl.
+
 The -ansi and -pedantic are useful in catching at least the following
 nonportable practices:
 

 //depot/perl/cflags.SH#22 (xtext) 
Index: perl/cflags.SH
--- perl/cflags.SH#21~17925~Thu Sep 26 02:15:55 2002
+++ perl/cflags.SH  Mon Sep 30 02:51:40 2002
@@ -133,29 +133,33 @@
 esac
 case "$gccansipedantic" in
 define)
-case "$osname" in
-   # Add -ansi -pedantic only for known platforms.
-aix|dec_osf|freebsd|hpux|irix|linux)
-   ansipedantic="-ansi -pedantic" ;;
-solaris)
+   case "$gccversion" in
+   [12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this.
+   *)  case "$osname" in
+   # Add -ansi -pedantic only for known platforms.
+   aix|dec_osf|freebsd|hpux|irix|linux)
+   ansipedantic="-ansi -pedantic" ;;
+   solaris)
 # Can't add -ansi for Solaris.
 # Off_t/off_t is a struct in Solaris with largefiles, and with -ansi
 # that struct cannot be compared with a flat integer, such as a STRLEN.
 # The -ansi will also cause a lot of noise in Solaris because of:
 # /usr/include/sys/resource.h:148: warning: `struct rlimit64' declared inside 
parameter list
-   ansipedantic="-pedantic" ;;
-   esac
-   for i in $ansipedantic
-   do
-   case "$ccflags" in
-   *$i*) ;;
-   *) warn="$warn $i" ;;
+   ansipedantic="-pedantic" ;;
+   esac
+   for i in $ansipedantic
+   do
+   case "$ccflags" in
+   *$i*) ;;
+   *) warn="$warn $i" ;;
+   esac
+   done
+   case "$warn$ccflags" in
+   *-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;;
esac
-   done
-case "$warn$ccflags" in
-*-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;;
-esac
-;;
+   ;;
+   esac
+   ;;
 esac
 ;;
 esac
End of Patch.

Change 17946: nanosleep on VMS not present

[H.Merijn Brand]

Change 17946 by merijn@merijn-l1 on 2002/09/30 15:19:36

nanosleep on VMS not present

Affected files ...

 //depot/perl/configure.com#169 edit

Differences ...

 //depot/perl/configure.com#169 (text) 
Index: perl/configure.com
--- perl/configure.com#168~17936~   Fri Sep 27 03:00:42 2002
+++ perl/configure.com  Mon Sep 30 08:19:36 2002
@@ -5489,6 +5489,7 @@
 $ WC "d_unordered='undef'"
 $ WC "d_usleep='" + d_usleep + "'"
 $ WC "d_usleepproto='" + d_usleep + "'"
+$ WC "d_nanosleep='undef'"
 $ WC "d_ustat='undef'"
 $ WC "d_vendorarch='undef'"
 $ WC "d_vendorlib='undef'"
End of Patch.

Change 17951: MakeMaker's INSTALLSITEMANXDIR Configure's counterpart

[H.Merijn Brand]

Change 17951 by merijn@merijn-l1 on 2002/10/02 09:15:18

MakeMaker's INSTALLSITEMANXDIR Configure's counterpart
Thu, 25 Jul 2002, Andy Dougherty

Affected files ...

 //depot/perl/Configure#487 edit
 //depot/perl/Policy_sh.SH#15 edit

Differences ...

 //depot/perl/Configure#487 (xtext) 
Index: perl/Configure
--- perl/Configure#486~17944~   Mon Sep 30 01:29:33 2002
+++ perl/Configure  Wed Oct  2 02:15:18 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Sep 30 10:11:20 METDST 2002 [metaconfig 3.0 PL70]
+# Generated on Wed Oct  2 11:55:39 METDST 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 17975: Non ANSI feature detection in enum

[H.Merijn Brand]

Change 17975 by merijn@merijn-l1 on 2002/10/04 13:30:17

Non ANSI feature detection in enum

Affected files ...

 //depot/perl/pad.h#2 edit

Differences ...

 //depot/perl/pad.h#2 (text) 
Index: perl/pad.h
--- perl/pad.h#1~17953~ Wed Oct  2 05:55:29 2002
+++ perl/pad.h  Fri Oct  4 06:30:17 2002
@@ -37,7 +37,7 @@
 typedef enum {
padnew_CLONE= 1,/* this pad is for a cloned CV */
padnew_SAVE = 2,/* save old globals */
-   padnew_SAVESUB  = 4,/* also save extra stuff for start of sub */
+   padnew_SAVESUB  = 4 /* also save extra stuff for start of sub */
 } padnew_flags;
 
 /* values for the pad_tidy() function */
End of Patch.

Change 17981: Try #3 for Porting/pumpkin.pod APPLLIB_EXP quoting

[H.Merijn Brand]

Change 17981 by merijn@merijn-l1 on 2002/10/09 04:49:06

Try #3 for Porting/pumpkin.pod APPLLIB_EXP quoting
Tue, 8 Oct 2002; Andy Dougherty <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Porting/pumpkin.pod#45 edit

Differences ...

 //depot/perl/Porting/pumpkin.pod#45 (text) 
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod#44~17958~  Wed Oct  2 06:57:06 2002
+++ perl/Porting/pumpkin.podTue Oct  8 21:49:06 2002
@@ -1261,11 +1261,11 @@
 Given that it's already there, you can use it to override distribution modules.
 One way to do that is to add
 
-   ccflags="$ccflags -DAPPLLIB_EXP='"/my/override"'"
+   ccflags="$ccflags -DAPPLLIB_EXP=\"/my/override\""

 to your config.over file.  (You have to be particularly careful to get the
-double quotes in.  It might actually be easier to just #define it
-yourself in perl.c.)
+double quotes in.  APPLLIB_EXP must be a valid C string.  It might
+actually be easier to just #define it yourself in perl.c.)
 
 Then perl.c will put /my/override ahead of ARCHLIB and PRIVLIB.  Perl will
 also search architecture-specific and version-specific subdirectories of
End of Patch.

Change 17982: Correct mailing list archive URL

[H.Merijn Brand]

Change 17982 by merijn@merijn-l1 on 2002/10/09 10:34:40

Correct mailing list archive URL
Wed, 9 Oct 2002; Slaven Rezic <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Porting/pumpkin.pod#46 edit

Differences ...

 //depot/perl/Porting/pumpkin.pod#46 (text) 
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod#45~17981~  Tue Oct  8 21:49:06 2002
+++ perl/Porting/pumpkin.podWed Oct  9 03:34:40 2002
@@ -43,7 +43,7 @@
 
 Archives of the list are held at:
 
-http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-porters/
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/
 
 =head1 How are Perl Releases Numbered?
 
End of Patch.

Change 17983: Tru64 and gcc and threads

[H.Merijn Brand]

Change 17983 by merijn@merijn-l1 on 2002/10/09 12:22:26

Tru64 and gcc and threads
Sat, 5 Oct 2002; Jarkko Hietaniemi <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/thread.h#84 edit

Differences ...

 //depot/perl/thread.h#84 (text) 
Index: perl/thread.h
--- perl/thread.h#83~15151~ Sun Mar 10 19:04:33 2002
+++ perl/thread.h   Wed Oct  9 05:22:26 2002
@@ -266,7 +266,7 @@
  * It would fail if the key were bogus, but if the key were bogus then
  * Really Bad Things would be happening anyway. --dan */
 #if (defined(__ALPHA) && (__VMS_VER >= 7000)) || \
-(defined(__alpha) && defined(__osf__)) /* Available only on >= 4.0 */
+(defined(__alpha) && defined(__osf__) && !defined(__GNUC__)) /* Available only on 
+>= 4.0 */
 #  define HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP /* Configure test needed */
 #endif
 
End of Patch.

Change 18029: minor tweaks in Porting/pumpkin.pod

[H.Merijn Brand]

Change 18029 by merijn@merijn-l1 on 2002/10/18 07:28:21

minor tweaks in Porting/pumpkin.pod
Fri, 18 Oct 2002; Philip Newton <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Porting/pumpkin.pod#48 edit

Differences ...

 //depot/perl/Porting/pumpkin.pod#48 (text) 
Index: perl/Porting/pumpkin.pod
--- perl/Porting/pumpkin.pod#47~18021~  Thu Oct 17 04:28:38 2002
+++ perl/Porting/pumpkin.podFri Oct 18 00:28:21 2002
@@ -103,7 +103,7 @@
 C<$1> in the pattern is always an even number for maintenance
 versions, and odd for developer releases.
 
-In the past it has been observed that pumkings tend to invent new
+In the past it has been observed that pumpkings tend to invent new
 naming conventions on the fly. If you are a pumpking, before you
 invent a new name for any of the three types of perl distributions,
 please inform the guys from the CPAN who are doing indexing and
@@ -159,6 +159,8 @@
 If feasible, try to keep filenames 8.3-compliant to humor those poor
 souls that get joy from running Perl under such dire limitations.
 There's a script, check83.pl, for keeping your nose 8.3-clean.
+In a similar vein, do not create files or directories which differ only
+in case (upper versus lower).
 
 =head2 Seek consensus on major changes
 
@@ -590,13 +592,13 @@
 
 =head2 Todo
 
-The F file contains a roughly-catgorized unordered list of
-aspects of Perl that could use enhancement, features that could be
-added, areas that could be cleaned up, and so on.  During your term as
-pumpkin-holder, you will probably address some of these issues, and
-perhaps identify others which, while you decide not to address them
-this time around, may be tackled in the future.  Update the file
-reflect the situation as it stands when you hand over the pumpkin.
+The F file contains a roughly-categorized unordered
+list of aspects of Perl that could use enhancement, features that could
+be added, areas that could be cleaned up, and so on.  During your term
+as pumpkin-holder, you will probably address some of these issues, and
+perhaps identify others which, while you decide not to address them this
+time around, may be tackled in the future.  Update the file to reflect
+the situation as it stands when you hand over the pumpkin.
 
 You might like, early in your pumpkin-holding career, to see if you
 can find champions for partiticular issues on the to-do list: an issue
End of Patch.

Change 18053: charnames pragma extended with :alias for customized

[H.Merijn Brand]

Change 18053 by merijn@merijn-l1 on 2002/10/24 08:20:09

charnames pragma extended with :alias for customized
unicode naming aliases
Mon, 21 Oct 2002; "H.Merijn Brand" <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/lib/charnames.pm#36 edit
 //depot/perl/lib/charnames.t#21 edit

Differences ...

 //depot/perl/lib/charnames.pm#36 (text) 
Index: perl/lib/charnames.pm
--- perl/lib/charnames.pm#35~16891~ Thu May 30 07:07:30 2002
+++ perl/lib/charnames.pm   Thu Oct 24 01:20:09 2002
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 use bytes ();  # for $bytes::hint_bits
 $charnames::hint_bits = 0x2;
@@ -38,20 +38,44 @@
'PARTIAL LINE UP'   => 'PARTIAL LINE BACKWARD',
);
 
+my %alias3 = (
+   # User defined aliasses. Even more convenient :)
+   );
 my $txt;
 
+sub alias (@)
+{
+  @_ or return %alias3;
+  my $alias = ref $_[0] ? $_[0] : { @_ };
+  @alias3{keys %$alias} = values %$alias;
+} # alias
+
+sub alias_file ($)
+{
+  my $arg = shift;
+  my $file = -f $arg ? $arg : "unicore/${arg}_alias.pl";
+  if (my @alias = do $file) {
+alias (@alias);
+return (1);
+  }
+  0;
+} # alias_file
+
 # This is not optimized in any way yet
 sub charnames
 {
   my $name = shift;
 
   if (exists $alias1{$name}) {
-  $name = $alias1{$name};
+$name = $alias1{$name};
   }
-  if (exists $alias2{$name}) {
-  require warnings;
-  warnings::warnif('deprecated', qq{Unicode character name "$name" is deprecated, 
use "$alias2{$name}" instead});
-  $name = $alias2{$name};
+  elsif (exists $alias2{$name}) {
+require warnings;
+warnings::warnif('deprecated', qq{Unicode character name "$name" is deprecated, 
+use "$alias2{$name}" instead});
+$name = $alias2{$name};
+  }
+  elsif (exists $alias3{$name}) {
+$name = $alias3{$name};
   }
 
   my $ord;
@@ -59,72 +83,70 @@
   my $fname;
 
   if ($name eq "BYTE ORDER MARK") {
-  $fname = $name;
-  $ord = 0xFEFF;
+$fname = $name;
+$ord = 0xFEFF;
   } else {
-  ## Suck in the code/name list as a big string.
-  ## Lines look like:
-  ## "0052\t\tLATIN CAPITAL LETTER R\n"
-  $txt = do "unicore/Name.pl" unless $txt;
-
-  ## @off will hold the index into the code/name string of the start and
-  ## end of the name as we find it.
-  
-  ## If :full, look for the the name exactly
-  if ($^H{charnames_full} and $txt =~ /\t\t\Q$name\E$/m) {
+## Suck in the code/name list as a big string.
+## Lines look like:
+## "0052\t\tLATIN CAPITAL LETTER R\n"
+$txt = do "unicore/Name.pl" unless $txt;
+
+## @off will hold the index into the code/name string of the start and
+## end of the name as we find it.
+
+## If :full, look for the the name exactly
+if ($^H{charnames_full} and $txt =~ /\t\t\Q$name\E$/m) {
+  @off = ($-[0], $+[0]);
+}
+
+## If we didn't get above, and :short allowed, look for the short name.
+## The short name is like "greek:Sigma"
+unless (@off) {
+  if ($^H{charnames_short} and $name =~ /^(.+?):(.+)/s) {
+   my ($script, $cname) = ($1, $2);
+   my $case = $cname =~ /[[:upper:]]/ ? "CAPITAL" : "SMALL";
+   if ($txt =~ m/\t\t\U$script\E (?:$case )?LETTER \U\Q$cname\E$/m) {
  @off = ($-[0], $+[0]);
+   }
   }
+}
 
-  ## If we didn't get above, and :short allowed, look for the short name.
-  ## The short name is like "greek:Sigma"
-  unless (@off) {
- if ($^H{charnames_short} and $name =~ /^(.+?):(.+)/s) {
- my ($script, $cname) = ($1,$2);
- my $case = ( $cname =~ /[[:upper:]]/ ? "CAPITAL" : "SMALL");
- if ($txt =~ m/\t\t\U$script\E (?:$case )?LETTER \U\Q$cname\E$/m) {
- @off = ($-[0], $+[0]);
- }
- }
-  }
-  
-  ## If we still don't have it, check for the name among the loaded
-  ## scripts.
-  if (not @off)
-  {
- my $case = ( $name =~ /[[:upper:]]/ ? "CAPITAL" : "SMALL");
- for my $script ( @{$^H{charnames_scripts}} )
- {
- if ($txt =~ m/\t\t$script (?:$case )?LETTER \U\Q$name\E$/m) {
- @off = ($-[0], $+[0]);
- last;
- }
- }
-  }
-  
-  ## If we don't have it by now, give up.
-  unless (@off) {
- carp "Unknown charname '$name'";
- return "\x{FFFD}";
+## If we still don't have it, check for the name among the loaded
+## scripts.
+if (not @off) {
+  my $case = $name =~ /[[:upper:]]/ ? &

Change 18064: The 5005thread todo list; 2 down 25 to go

[H.Merijn Brand]

Change 18064 by merijn@merijn-l1 on 2002/10/25 11:47:07

The 5005thread todo list; 2 down 25 to go

Affected files ...

 //depot/perl/README.irix#7 edit
 //depot/perl/README.tru64#14 edit

Differences ...

 //depot/perl/README.irix#7 (text) 
Index: perl/README.irix
--- perl/README.irix#6~17525~   Sat Jul 13 15:31:07 2002
+++ perl/README.irixFri Oct 25 04:47:07 2002
@@ -74,14 +74,10 @@
 =head2 Building with threads in Irix
 
 Run Configure with -Duseithreads which will configure Perl with
-the new Perl 5.8.0 "interpreter threads", see L.
+the Perl 5.8.0 "interpreter threads", see L.
 
-The old Perl 5.005 threads is obsolete, unmaintained, and its use is
-discouraged.  If you really want it, run Configure with the
--Dusethreads -Duse5005threads options as described in INSTALL.
-
-For either thread model and for Irix 6.2, you have to have the
-following patches installed:
+For Irix 6.2 with perl threads, you have to have the following
+patches installed:
 
 1404 Irix 6.2 Posix 1003.1b man pages
 1645 Irix 6.2 & 6.3 POSIX header file updates

 //depot/perl/README.tru64#14 (text) 
Index: perl/README.tru64
--- perl/README.tru64#13~17808~ Thu Aug 29 19:59:31 2002
+++ perl/README.tru64   Fri Oct 25 04:47:07 2002
@@ -35,16 +35,12 @@
 
 =head2 Threaded Perl on Tru64
 
-If you want to use threads, you should primarily use the new Perl
+If you want to use threads, you should primarily use the Perl
 5.8.0 threads model by running Configure with -Duseithreads.
 
-The old Perl 5.005 threads is obsolete, unmaintained, and its use is
-discouraged.  If you really want it, run Configure with the
--Dusethreads -Duse5005threads options as described in INSTALL.
-
-Either thread model is going to work only in Tru64 4.0 and newer
-releases, older operating releases like 3.2 aren't probably going
-to work properly with threads.
+Perl threading is going to work only in Tru64 4.0 and newer releases,
+older operating releases like 3.2 aren't probably going to work
+properly with threads.
 
 =head2 Long Doubles on Tru64
 
End of Patch.

Change 18067: [PATCH] embed.pl doc. (embed.pl reorganization for doc headers)

[H.Merijn Brand]

Change 18067 by merijn@merijn-l1 on 2002/10/27 06:02:21

[PATCH] embed.pl doc. (embed.pl reorganization for doc headers)
Wed, 23 Oct 2002; Jarkko Hietaniemi <[EMAIL PROTECTED]>
With some additional modifications

Affected files ...

 //depot/perl/embed.pl#320 edit

Differences ...

 //depot/perl/embed.pl#320 (xtext) 
Index: perl/embed.pl
--- perl/embed.pl#319~18030~Sat Oct 19 07:10:21 2002
+++ perl/embed.pl   Sat Oct 26 23:02:21 2002
@@ -10,6 +10,40 @@
 # implicit interpreter context argument.
 #
 
+sub do_not_edit ($)
+{
+my $file = shift;
+my $warning = < embed.h') or die "Can't create embed.h: $!\n";
 
-print EM <<'END';
-/*
- *embed.h
- *
- *Copyright (c) 1997-2002, Larry Wall
- *
- *You may distribute under the terms of either the GNU General Public
- *License or the Artistic License, as specified in the README file.
- *
- *  !!!   DO NOT EDIT THIS FILE   !!!
- *  This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
- *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
- */
+print EM do_not_edit ("embed.h"), <<'END';
 
 /* (Doing namespace management portably in C is really gross.) */
 
@@ -501,20 +493,7 @@
 open(EM, '> embedvar.h')
 or die "Can't create embedvar.h: $!\n";
 
-print EM <<'END';
-/*
- *embedvar.h
- *
- *Copyright (c) 1997-2002, Larry Wall
- *
- *You may distribute under the terms of either the GNU General Public
- *License or the Artistic License, as specified in the README file.
- *
- *
- * !!!   DO NOT EDIT THIS FILE   !!!
- *  This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
- *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
- */
+print EM do_not_edit ("embedvar.h"), <<'END';
 
 /* (Doing namespace management portably in C is really gross.) */
 
@@ -622,20 +601,7 @@
 open(CAPI, '> perlapi.c') or die "Can't create perlapi.c: $!\n";
 open(CAPIH, '> perlapi.h') or die "Can't create perlapi.h: $!\n";
 
-print CAPIH <<'EOT';
-/*
- *perlapi.h
- *
- *Copyright (c) 1997-2002, Larry Wall
- *
- *You may distribute under the terms of either the GNU General Public
- *License or the Artistic License, as specified in the README file.
- *
- *
- * !!!   DO NOT EDIT THIS FILE   !!!
- *  This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
- *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
- */
+print CAPIH do_not_edit ("perlapi.h"), <<'EOT';
 
 /* declare accessor functions for Perl variables */
 #ifndef __perlapi_h__
@@ -731,20 +697,7 @@
 EOT
 close CAPIH;
 
-print CAPI <<'EOT';
-/*
- *perlapi.c
- *
- *Copyright (c) 1997-2002, Larry Wall
- *
- *You may distribute under the terms of either the GNU General Public
- *License or the Artistic License, as specified in the README file.
- *
- *
- * !!!   DO NOT EDIT THIS FILE   !!!
- *  This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
- *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
- */
+print CAPI do_not_edit ("perlapi.c"), <<'EOT';
 
 #include "EXTERN.h"
 #include "perl.h"
End of Patch.

Change 18068: Repair broken previous patch. I don't like it, but not repairing it

[H.Merijn Brand]

Change 18068 by merijn@merijn-l1 on 2002/10/27 17:57:15

Repair broken previous patch. I don't like it, but not repairing it
breaks each and every build. Will teach me to test on the same
machine where I patched it. Sorry.

Affected files ...

 //depot/perl/embed.pl#321 edit

Differences ...

 //depot/perl/embed.pl#321 (xtext) 
Index: perl/embed.pl
--- perl/embed.pl#320~18067~Sat Oct 26 23:02:21 2002
+++ perl/embed.pl   Sun Oct 27 09:57:15 2002
@@ -32,14 +32,14 @@
 EOW
 
 if ($file =~ m:\.[ch]$:) {
-$warning =~ s:^: * :gm;
-$warning =~ s: +$::gm;
-$warning =~ s: :/:;
-$warning =~ s:$:/:;
+   $warning =~ s:^: * :gm;
+   $warning =~ s: +$::gm;
+   $warning =~ s: :/:;
+   $warning =~ s:$:/:;
 }
 else {
-$warning =~ s:^:# :gm;
-$warning =~ s: +$::gm;
+   $warning =~ s:^:# :gm;
+   $warning =~ s: +$::gm;
 }
 $warning;
 } # do_not_edit
@@ -51,7 +51,8 @@
 sub walk_table (&@) {
 my $function = shift;
 my $filename = shift || '-';
-my $leader = shift || do_not_edit ($filename);
+my $leader = shift;
+defined $leader or $leader = do_not_edit ($filename);
 my $trailer = shift;
 my $F;
 local *F;
@@ -96,7 +97,7 @@
if (@_ > 1) {
$functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
}
-} '/dev/null';
+} '/dev/null', '';
 local $^I = '.bak';
 while (<>) {
 #  if (/^#\s*include\s+"perl.h"/) {
@@ -200,8 +201,8 @@
 $ret;
 }
 
-walk_table(\&write_protos, "proto.h");
-walk_table(\&write_global_sym, "global.sym");
+walk_table(\&write_protos, "proto.h", "");
+walk_table(\&write_global_sym, "global.sym", "");
 
 # XXX others that may need adding
 #   warnhook
@@ -334,7 +335,7 @@
}
 }
 $ret;
-} \*EM;
+} \*EM, "";
 
 for $sym (sort keys %ppsym) {
 $sym =~ s/^Perl_//;
@@ -387,7 +388,7 @@
}
 }
 $ret;
-} \*EM;
+} \*EM, "";
 
 for $sym (sort keys %ppsym) {
 $sym =~ s/^Perl_//;
End of Patch.

Change 18084: Tru64, gcc -O3, datasize

[H.Merijn Brand]

Change 18084 by merijn@merijn-l1 on 2002/11/04 11:04:45

Tru64, gcc -O3, datasize
Sun, 3 Nov 2002; Jarkko Hietaniemi <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/README.tru64#15 edit
 //depot/perl/hints/dec_osf.sh#50 edit

Differences ...

 //depot/perl/README.tru64#15 (text) 
Index: perl/README.tru64
--- perl/README.tru64#14~18064~ Fri Oct 25 04:47:07 2002
+++ perl/README.tru64   Mon Nov  4 03:04:45 2002
@@ -26,6 +26,14 @@
 (the exact pattern of failures depending on the GCC release and
 optimization flags).
 
+gcc 3.2.1 is known to work okay with Perl 5.8.0.  However, when
+optimizing the toke.c gcc likes to have a lot of memory, 256 megabytes
+seems to be enough.  The default setting of the process data section
+in Tru64 should be one gigabyte, but some sites/setups might have
+lowered that.  The configuration process of Perl checks for too low
+process limits, and lowers the optimization for the toke.c if
+necessary, and also gives advice on how to raise the process limits.
+
 =head2 Using Large Files with Perl on Tru64
 
 In Tru64 Perl is automatically able to use large files, that is,

 //depot/perl/hints/dec_osf.sh#50 (text) 
Index: perl/hints/dec_osf.sh
--- perl/hints/dec_osf.sh#49~17808~ Thu Aug 29 19:59:31 2002
+++ perl/hints/dec_osf.sh   Mon Nov  4 03:04:45 2002
@@ -148,6 +148,42 @@
;;
 esac
 
+## Optimization limits
+case "$isgcc" in
+gcc) #  gcc 3.2.1 wants a lot of memory for -O3'ing toke.c
+cat >try.c <
+
+int main ()
+{
+struct rlimit rl;
+int i = getrlimit (RLIMIT_DATA, &rl);
+printf ("%d\n", rl.rlim_cur / (1024 * 1024));
+} /* main */
+EOF
+$cc -o try $ccflags $ldflags try.c
+   maxdsiz=`./try`
+rm -f try try.c core
+if [ $maxdsiz -lt 256 ]; then
+# less than 256 MB is probably not enough to optimize toke.c with gcc -O3
+cat <&4
+
+Your process datasize is limited to $maxdsiz MB, which is (sadly) not
+always enough to fully optimize some source code files of Perl,
+at least 256 MB seems to be necessary as of Perl 5.8.0.  I'll try to
+use a lower optimization level for those parts.  You could either try
+using your shell's ulimit/limit/limits command to raise your datasize
+(assuming the system-wide hard resource limits allow you to go higher),
+or if you can't go higher and if you are a sysadmin, and you *do* want
+the full optimization, you can tune the 'max_per_proc_data_size'
+kernel parameter: see man sysconfigtab, and man sys_attrs_proc.
+
+EOM
+toke_cflags='optimize=-O2'
+fi
+;;
+esac
+
 # we want dynamic fp rounding mode, and we want ieee exception semantics
 case "$isgcc" in
 gcc)   ;;
End of Patch.

Change 18083: [PATCH] Typo configpm

[H.Merijn Brand]

Change 18083 by merijn@merijn-l1 on 2002/11/04 10:58:52

[PATCH] Typo configpm
Mon, 4 Nov 2002; Rafael Garcia-Suarez <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/configpm#43 edit

Differences ...

 //depot/perl/configpm#43 (xtext) 
Index: perl/configpm
--- perl/configpm#42~18077~ Sun Nov  3 05:18:17 2002
+++ perl/configpm   Mon Nov  4 02:58:52 2002
@@ -326,7 +326,7 @@
 
 sub config_re {
 my $re = shift;
-return map { chomp; $_ } grep /^$re=/, split /^/, $config_sh;
+return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;
 }
 
 sub config_vars {
End of Patch.

Change 18088: Charnames take 4

[H.Merijn Brand]

Change 18088 by merijn@merijn-l1 on 2002/11/04 15:37:06

Charnames take 4
Mon, 04 Nov 2002; H.Merijn Brand <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/lib/charnames.pm#37 edit
 //depot/perl/lib/charnames.t#22 edit

Differences ...

 //depot/perl/lib/charnames.pm#37 (text) 
Index: perl/lib/charnames.pm
--- perl/lib/charnames.pm#36~18053~ Thu Oct 24 01:20:09 2002
+++ perl/lib/charnames.pm   Mon Nov  4 07:37:06 2002
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Carp;
+use File::Spec;
 our $VERSION = '1.02';
 
 use bytes ();  # for $bytes::hint_bits
@@ -52,9 +53,21 @@
 
 sub alias_file ($)
 {
-  my $arg = shift;
-  my $file = -f $arg ? $arg : "unicore/${arg}_alias.pl";
+  my ($arg, $file) = @_;
+  if (-f $arg && File::Spec->file_name_is_absolute ($arg)) {
+$file = $arg;
+  }
+  elsif ($arg =~ m/^\w+$/) {
+$file = "unicore/${arg}_alias.pl";
+  }
+  else {
+croak "Charnames alias files can only have identifier characters";
+  }
   if (my @alias = do $file) {
+@alias == 1 && !defined $alias[0] and
+  croak "$file cannot be used as alias file for charnames";
+@alias % 2 and
+  croak "$file did not return a (valid) list of alias pairs";
 alias (@alias);
 return (1);
   }
@@ -178,18 +191,28 @@
   ##
   my ($promote, %h, @args) = (0);
   while (@_ and $_ = shift) {
-if ($_ eq ":alias" && @_) {
+if ($_ eq ":alias") {
+  @_ or
+   croak ":alias needs an argument in charnames";
   my $alias = shift;
   if (ref $alias) {
ref $alias eq "HASH" or
- die "Only HASH reference supported as argument to :alias";
+ croak "Only HASH reference supported as argument to :alias";
alias ($alias);
next;
   }
-  if ($alias =~ m{:(\w+)$} and $1 ne "full" && $1 ne "short") {
-   alias_file ($1) and $promote = 1, next;
+  if ($alias =~ m{:(\w+)$}) {
+   $1 eq "full" || $1 eq "short" and
+ croak ":alias cannot use existing pragma :$1 (reversed order?)";
+   alias_file ($1) and $promote = 1;
+   next;
   }
-  alias_file ($alias) and next;
+  alias_file ($alias);
+  next;
+}
+if (m/^:/ and ! ($_ eq ":full" || $_ eq ":short")) {
+  warn "unsupported special '$_' in charnames";
+  next;
 }
 push @args, $_;
   }

 //depot/perl/lib/charnames.t#22 (text) 
Index: perl/lib/charnames.t
--- perl/lib/charnames.t#21~18053~  Thu Oct 24 01:20:09 2002
+++ perl/lib/charnames.tMon Nov  4 07:37:06 2002
@@ -12,7 +12,7 @@
 
 $| = 1;
 
-print "1..69\n";
+print "1..73\n";
 
 use charnames ':full';
 
@@ -95,7 +95,7 @@
 {
use charnames qw(:full);
use utf8;
-   
+
 my $x = "\x{221b}";
 my $named = "\N{CUBE ROOT}";
 
@@ -119,7 +119,7 @@
 }
 
 {
-  # 20001114.001   
+  # 20001114.001
 
   no utf8; # naked Latin-1
 
@@ -328,17 +328,29 @@
 }
 
 __END__
+# unsupported pragma
+use charnames ":scoobydoo";
+"Here: \N{e_ACUTE}!\n";
+EXPECT
+unsupported special ':scoobydoo' in charnames at
+
 # wrong type of alias (missing colon)
 use charnames "alias";
 "Here: \N{e_ACUTE}!\n";
 EXPECT
-Unknown charname 'e_ACUTE' at 
+Unknown charname 'e_ACUTE' at
 
 # alias without an argument
 use charnames ":alias";
 "Here: \N{e_ACUTE}!\n";
 EXPECT
-Unknown charname 'e_ACUTE' at 
+:alias needs an argument in charnames at
+
+# reversed sequence
+use charnames ":alias" => ":full";
+"Here: \N{e_ACUTE}!\n";
+EXPECT
+:alias cannot use existing pragma :full \(reversed order\?\) at
 
 # alias with hashref but no :full
 use charnames ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" };
@@ -374,7 +386,7 @@
 use charnames ":short", ":alias" => "e_ACUTE";
 "Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
 EXPECT
-Odd number of elements in anonymous hash at
+unicore/e_ACUTE_alias.pl cannot be used as alias file for charnames at
 
 # alias with arrayref
 use charnames ":short", ":alias" => [ e_ACUTE => "LATIN:e WITH ACUTE" ];
@@ -437,7 +449,19 @@
 use charnames ":full", ":alias" => "xyzzy";
 "Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
 EXPECT
-Odd number of elements in anonymous hash at
+unicore/xyzzy_alias.pl cannot be used as alias file for charnames at
+
+# alias with bad file name
+use charnames ":full", ":alias" => "xy 7-";
+"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
+EXPECT
+Cha

Change 18094: Changed the warning detection pattern because of:

[H.Merijn Brand]

Change 18094 by merijn@merijn-l1 on 2002/11/04 16:08:22

Changed the warning detection pattern because of:

Subject: ccache gcc3.2 doesn't work
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Tue, 29 Oct 2002 15:01:39
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Configure#489 edit

Differences ...

 //depot/perl/Configure#489 (xtext) 
Index: perl/Configure
--- perl/Configure#488~18011~   Sat Oct 12 08:36:43 2002
+++ perl/Configure  Mon Nov  4 08:08:22 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Wed Oct  2 11:55:39 METDST 2002 [metaconfig 3.0 PL70]
+# Generated on Mon Nov  4 18:09:25 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ &1 | \
-grep '^cc1: warning: changing search order '`
+grep '^c[cp]p*[01]: warning: changing search order '`
if test "X$warn" != X; then
   locincpth=`echo " $locincpth " | sed "s! $incdir ! !"`
fi
@@ -6445,9 +6445,9 @@
 $cat <

Change 18108: Put back the DO NOT EDIT headers in proto.h and global.sym

[H.Merijn Brand]

Change 18108 by merijn@merijn-l1 on 2002/11/05 07:52:08

Put back the DO NOT EDIT headers in proto.h and global.sym

Subject: Re: [perl #18066] Bug in -I when path has double colons?
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: 03 Nov 2002 10:25:10 +0100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/embed.pl#322 edit

Differences ...

 //depot/perl/embed.pl#322 (xtext) 
Index: perl/embed.pl
--- perl/embed.pl#321~18068~Sun Oct 27 09:57:15 2002
+++ perl/embed.pl   Mon Nov  4 23:52:08 2002
@@ -201,8 +201,8 @@
 $ret;
 }
 
-walk_table(\&write_protos, "proto.h", "");
-walk_table(\&write_global_sym, "global.sym", "");
+walk_table(\&write_protos, "proto.h", undef);
+walk_table(\&write_global_sym, "global.sym", undef);
 
 # XXX others that may need adding
 #   warnhook
End of Patch.

Change 18139: Date: Tue, 12 Nov 2002 16:49:22 +0200

[H.Merijn Brand]

Change 18139 by merijn@merijn-l1 on 2002/11/12 14:20:36

Date: Tue, 12 Nov 2002 16:49:22 +0200
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Subject: [PATCH] Tru64 osvers
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Configure#490 edit

Differences ...

 //depot/perl/Configure#490 (xtext) 
Index: perl/Configure
--- perl/Configure#489~18094~   Mon Nov  4 08:08:22 2002
+++ perl/Configure  Tue Nov 12 06:20:36 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Nov  4 18:09:25 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Tue Nov 12 16:26:02 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 18141: repair 18139 (missing awk command)

[H.Merijn Brand]

Change 18141 by merijn@merijn-l1 on 2002/11/12 16:15:30

repair 18139 (missing awk command)

Affected files ...

 //depot/perl/Configure#491 edit

Differences ...

 //depot/perl/Configure#491 (xtext) 
Index: perl/Configure
--- perl/Configure#490~18139~   Tue Nov 12 06:20:36 2002
+++ perl/Configure  Tue Nov 12 08:15:30 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Tue Nov 12 16:26:02 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Tue Nov 12 18:22:15 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 18168: [PATCH] hires sleeping wants libs

[H.Merijn Brand]

Change 18168 by merijn@merijn-l1 on 2002/11/21 13:59:12

Subject: [PATCH] hires sleeping wants libs
Date: Wed, 20 Nov 2002 17:18:31 +0200
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

 //depot/perl/Configure#492 edit
 //depot/perl/hints/irix_6.sh#62 edit

Differences ...

 //depot/perl/Configure#492 (xtext) 
Index: perl/Configure
--- perl/Configure#491~18141~   Tue Nov 12 08:15:30 2002
+++ perl/Configure  Thu Nov 21 05:59:12 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Tue Nov 12 18:22:15 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Thu Nov 21 16:01:03 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 18182: #17171: ld flag for shrplib on OpenBSD

[H.Merijn Brand]

Change 18182 by merijn@merijn-l1 on 2002/11/26 08:44:39

Subject: #17171: ld flag for shrplib on OpenBSD
Date: Wed, 11 Sep 2002 13:44:12 -0600 (MDT)
From: "Todd C. Miller" 

Affected files ...

 //depot/perl/Configure#493 edit

Differences ...

 //depot/perl/Configure#493 (xtext) 
Index: perl/Configure
--- perl/Configure#492~18168~   Thu Nov 21 05:59:12 2002
+++ perl/Configure  Tue Nov 26 00:44:39 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Thu Nov 21 16:01:03 MET 2002 [metaconfig 3.0 PL70]
+# Generated on Tue Nov 26 10:51:37 MET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 21846: [PATCH] Configure gets d_u32align wrong

[H.Merijn Brand]

Change 21846 by [EMAIL PROTECTED] on 2003/12/05 10:41:32

Subject: [PATCH] Configure gets d_u32align wrong
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 05 Dec 2003 03:47:01 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/Configure#552 edit

Differences ...

 //depot/perl/Configure#552 (xtext) 
Index: perl/Configure
--- perl/Configure#551~21712~   Thu Nov 13 01:22:21 2003
+++ perl/Configure  Fri Dec  5 02:41:32 2003
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Thu Nov 13 11:29:28 MET 2003 [metaconfig 3.0 PL70]
+# Generated on Fri Dec  5 12:57:38 MET 2003 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 21881: [PATCH] d_u32align for win32

[H.Merijn Brand]

Change 21881 by [EMAIL PROTECTED] on 2003/12/12 16:09:14

Subject: [PATCH] d_u32align for win32
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 11 Dec 2003 01:33:39 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/win32/config.bc#137 edit
... //depot/perl/win32/config.gc#137 edit
... //depot/perl/win32/config.vc#144 edit

Differences ...

 //depot/perl/win32/config.bc#137 (text) 
Index: perl/win32/config.bc
--- perl/win32/config.bc#136~19607~ Fri May 23 23:23:51 2003
+++ perl/win32/config.bcFri Dec 12 08:09:14 2003
@@ -451,7 +451,7 @@
 d_truncate='undef'
 d_ttyname_r='undef'
 d_tzname='define'
-d_u32align='define'
+d_u32align='undef'
 d_ualarm='undef'
 d_umask='define'
 d_uname='define'

 //depot/perl/win32/config.gc#137 (text) 
Index: perl/win32/config.gc
--- perl/win32/config.gc#136~19899~ Mon Jun 30 22:56:14 2003
+++ perl/win32/config.gcFri Dec 12 08:09:14 2003
@@ -450,7 +450,7 @@
 d_truncate='undef'
 d_ttyname_r='undef'
 d_tzname='define'
-d_u32align='define'
+d_u32align='undef'
 d_ualarm='undef'
 d_umask='define'
 d_uname='define'

 //depot/perl/win32/config.vc#144 (text) 
Index: perl/win32/config.vc
--- perl/win32/config.vc#143~19899~ Mon Jun 30 22:56:14 2003
+++ perl/win32/config.vcFri Dec 12 08:09:14 2003
@@ -450,7 +450,7 @@
 d_truncate='undef'
 d_ttyname_r='undef'
 d_tzname='define'
-d_u32align='define'
+d_u32align='undef'
 d_ualarm='undef'
 d_umask='define'
 d_uname='define'
End of Patch.

Change 21944: [PATCH] configure.com archname tweak

[H.Merijn Brand]

Change 21944 by [EMAIL PROTECTED] on 2003/12/22 10:13:43

Subject: [PATCH] configure.com archname tweak
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sun, 21 Dec 2003 23:07:13 -0600
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/configure.com#184 edit

Differences ...

 //depot/perl/configure.com#184 (text) 
Index: perl/configure.com
--- perl/configure.com#183~21933~   Sat Dec 20 12:07:44 2003
+++ perl/configure.com  Mon Dec 22 02:13:43 2003
@@ -5109,7 +5109,7 @@
 $   WS "printf(""%d\n"",iss);"
 $   WS "}"
 $   CS
-$   IF (archname .EQS. "VMS_AXP")
+$   IF (F$EXTRACT(0,7,archname) .EQS. "VMS_AXP")
 $   THEN
 $ GOSUB compile
 $   ELSE
@@ -6400,8 +6400,8 @@
 $   echo4 "The perl.cld file is now being written..."
 $   OPEN/WRITE CONFIG 'file_2_find'
 $   ext = ".exe"
-$   IF (sharedperl .AND. archname .EQS. "VMS_AXP") THEN ext := .AXE
-$   IF (sharedperl .AND. archname .EQS. "VMS_IA64") THEN ext := .IXE
+$   IF (sharedperl .AND. F$EXTRACT(0,7,archname) .EQS. "VMS_AXP") THEN ext := .AXE
+$   IF (sharedperl .AND. F$EXTRACT(0,8,archname) .EQS. "VMS_IA64") THEN ext := .IXE
 $   IF (use_vmsdebug_perl)
 $   THEN
 $ WRITE CONFIG "define verb dbgperl"
End of Patch.

Change 22120: [PATCH] Make 'Configure -Dcf_by=...' work

[H.Merijn Brand]

Change 22120 by [EMAIL PROTECTED] on 2004/01/12 13:04:42

Subject: [PATCH] Make 'Configure -Dcf_by=...' work
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 12 Jan 2004 02:35:27 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/Configure#553 edit

Differences ...

 //depot/perl/Configure#553 (xtext) 
Index: perl/Configure
--- perl/Configure#552~21846~   Fri Dec  5 02:41:32 2003
+++ perl/Configure  Mon Jan 12 05:04:42 2004
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Fri Dec  5 12:57:38 MET 2003 [metaconfig 3.0 PL70]
+# Generated on Mon Jan 12 14:18:05 MET 2004 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <&1`
-cf_by=`(logname) 2>/dev/null`
 case "$cf_by" in
 "")
-   cf_by=`(whoami) 2>/dev/null`
+   cf_by=`(logname) 2>/dev/null`
case "$cf_by" in
-   "") cf_by=unknown ;;
+   "")
+   cf_by=`(whoami) 2>/dev/null`
+   case "$cf_by" in
+   "") cf_by=unknown ;;
+   esac ;;
esac ;;
 esac
 
End of Patch.

Change 22174: [PATCH bleadperl] rescue PerlIO_getname for VMS

[H.Merijn Brand]

Change 22174 by [EMAIL PROTECTED] on 2004/01/19 10:41:24

Subject: [PATCH bleadperl] rescue PerlIO_getname for VMS
Date: Sun, 18 Jan 2004 12:51:23 -0600
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/perlio.c#247 edit

Differences ...

 //depot/perl/perlio.c#247 (text) 
Index: perl/perlio.c
--- perl/perlio.c#246~21620~Sun Nov  2 10:22:16 2003
+++ perl/perlio.c   Mon Jan 19 02:41:24 2004
@@ -4718,9 +4718,16 @@
 dTHX;
 char *name = NULL;
 #ifdef VMS
+bool exported = FALSE;
 FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
-if (stdio)
+if (!stdio) {
+   stdio = PerlIO_exportFILE(f,0);
+   exported = TRUE;
+}
+if (stdio) {
name = fgetname(stdio, buf);
+   if (exported) PerlIO_releaseFILE(f,stdio);
+}
 #else
 Perl_croak(aTHX_ "Don't know how to get file name");
 #endif
End of Patch.

Change 22173: [PATCH bleadperl] detect nanosleep on VMS

[H.Merijn Brand]

Change 22173 by [EMAIL PROTECTED] on 2004/01/19 10:27:53

Subject: [PATCH bleadperl] detect nanosleep on VMS
Date: Sun, 18 Jan 2004 17:03:30 -0600
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/configure.com#186 edit

Differences ...

 //depot/perl/configure.com#186 (text) 
Index: perl/configure.com
--- perl/configure.com#185~22057~   Sun Jan  4 22:17:07 2004
+++ perl/configure.com  Mon Jan 19 02:27:53 2004
@@ -4533,6 +4533,23 @@
 $   d_getsent="undef"
 $ ENDIF
 $!
+$! Check for nanosleep
+$!
+$ OS
+$ WS "#if defined(__DECC) || defined(__DECCXX)"
+$ WS "#include "
+$ WS "#endif"
+$ WS "#include "
+$ WS "int main()"
+$ WS "{"
+$ WS "int asleep = nanosleep(NULL,NULL);"
+$ WS "exit(0);"
+$ WS "}"
+$ CS
+$ tmp = "nanosleep"
+$ GOSUB inlibc
+$ d_nanosleep = tmp
+$!
 $! Check for socklen_t
 $!
 $ IF Has_Dec_C_Sockets .OR. Has_Socketshr
@@ -5412,7 +5429,7 @@
 $ WC "d_msync='" + d_msync + "'"
 $ WC "d_munmap='" + d_munmap + "'"
 $ WC "d_mymalloc='" + d_mymalloc + "'"
-$ WC "d_nanosleep='undef'"
+$ WC "d_nanosleep='" + d_nanosleep + "'"
 $ WC "d_nice='define'"
 $ WC "d_nl_langinfo='" + d_nl_langinfo + "'"
 $ WC "d_nv_preserves_uv='" + d_nv_preserves_uv + "'"
End of Patch.

Change 22177: Allow -Uinc_version_list to mean -Dinc_version_list=none

[H.Merijn Brand]

Change 22177 by [EMAIL PROTECTED] on 2004/01/19 16:11:22

Allow -Uinc_version_list to mean -Dinc_version_list=none
See INSTALL for more details

Affected files ...

... //depot/perl/Configure#554 edit

Differences ...

 //depot/perl/Configure#554 (xtext) 
Index: perl/Configure
--- perl/Configure#553~22120~   Mon Jan 12 05:04:42 2004
+++ perl/Configure  Mon Jan 19 08:11:22 2004
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Jan 12 14:18:05 MET 2004 [metaconfig 3.0 PL70]
+# Generated on Mon Jan 19 17:27:25 MET 2004 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 22175: Describe how to limit the perl's default @INC during Configure

[H.Merijn Brand]

Change 22175 by [EMAIL PROTECTED] on 2004/01/19 16:05:50

Describe how to limit the perl's default @INC during Configure
to _not_ include older versions

Affected files ...

... //depot/perl/INSTALL#142 edit

Differences ...

 //depot/perl/INSTALL#142 (text) 
Index: perl/INSTALL
--- perl/INSTALL#141~21661~ Wed Nov  5 08:50:05 2003
+++ perl/INSTALLMon Jan 19 08:05:50 2004
@@ -238,6 +238,20 @@
 After it runs, Configure will perform variable substitution on all the
 *.SH files and offer to run make depend.
 
+=head2 Disabling older versions of Perl
+
+Configure will search for binary compatible versions of previously
+installed perl binaries in the tree that is specified as target tree
+and these will be used by the perl being built.
+
+To disable use of older perl modules, even completely valid pure perl
+modules, you can specify to not include the pathes found:
+
+   sh Configure -Dinc_version_list=none ...
+
+When using the newer perl, you can add these pathes again in the
+$PERL5LIB environment variable or with perl's -I runtime option.
+
 =head2 Altering config.sh variables for C compiler switches etc.
 
 For most users, all of the Configure defaults are fine.  Configure
End of Patch.

Change 22179: [PATCH] dl_unload_file for HP-UX

[H.Merijn Brand]

Change 22179 by [EMAIL PROTECTED] on 2004/01/19 21:36:48

Subject: [PATCH] dl_unload_file for HP-UX
Date: Mon, 12 Jan 2004 07:49:44 -0800
From: Neil Watkiss <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/DynaLoader/dl_hpux.xs#15 edit

Differences ...

 //depot/perl/ext/DynaLoader/dl_hpux.xs#15 (text) 
Index: perl/ext/DynaLoader/dl_hpux.xs
--- perl/ext/DynaLoader/dl_hpux.xs#14~12634~Wed Oct 24 18:53:03 2001
+++ perl/ext/DynaLoader/dl_hpux.xs  Mon Jan 19 13:36:48 2004
@@ -102,6 +102,19 @@
 sv_setiv( ST(0), PTR2IV(obj) );
 
 
+int
+dl_unload_file(libref)
+void * libref
+  CODE:
+DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_unload_file(%lx):\n", 
PTR2ul(libref)));
+RETVAL = (shl_unload(libref) == 0 ? 1 : 0);
+if (!RETVAL)
+   SaveError(aTHX_ "%s", Strerror(errno));
+DLDEBUG(2,PerlIO_printf(Perl_debug_log, " retval = %d\n", RETVAL));
+  OUTPUT:
+RETVAL
+
+
 void *
 dl_find_symbol(libhandle, symbolname)
 void * libhandle
End of Patch.

Change 22192: [perl #25160] ':flock' not recognized unless it's first

[H.Merijn Brand]

Change 22192 by [EMAIL PROTECTED] on 2004/01/21 21:10:10

[perl #25160] ':flock' not recognized unless it's first
Exporter::Heavy now will treat :, /, and ! special in
all arguments, not only if the _first_ arg starts with it
Date: Wed, 21 Jan 2004 08:32:47 -0500
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Exporter/Heavy.pm#22 edit

Differences ...

 //depot/perl/lib/Exporter/Heavy.pm#22 (text) 
Index: perl/lib/Exporter/Heavy.pm
--- perl/lib/Exporter/Heavy.pm#21~18263~Sun Dec  8 13:56:13 2002
+++ perl/lib/Exporter/Heavy.pm  Wed Jan 21 13:10:10 2004
@@ -69,7 +69,7 @@
$cache_is_current = 1;
}
 
-   if ($imports[0] =~ m#^[/!:]#){
+   if (grep m{^[/!:]}, @imports) {
my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
my $tagdata;
my %imports;
End of Patch.

Change 22224: Document change 22192

[H.Merijn Brand]

Change 4 by [EMAIL PROTECTED] on 2004/01/26 22:10:13

Document change 22192
We still need tests!

Affected files ...

... //depot/perl/lib/Exporter.pm#31 edit

Differences ...

 //depot/perl/lib/Exporter.pm#31 (text) 
Index: perl/lib/Exporter.pm
--- perl/lib/Exporter.pm#30~21798~  Fri Nov 28 12:42:45 2003
+++ perl/lib/Exporter.pmMon Jan 26 14:10:13 2004
@@ -9,7 +9,7 @@
 our $Debug = 0;
 our $ExportLevel = 0;
 our $Verbose ||= 0;
-our $VERSION = '5.57';
+our $VERSION = '5.58';
 our (%Cache);
 $Carp::Internal{Exporter} = 1;
 
@@ -212,9 +212,9 @@
 
 =head2 Specialised Import Lists
 
-If the first entry in an import list begins with !, : or / then the
-list is treated as a series of specifications which either add to or
-delete from the list of names to import. They are processed left to
+If any of the entries in an import list begins with !, : or / then
+the list is treated as a series of specifications which either add to
+or delete from the list of names to import. They are processed left to
 right. Specifications are in the form:
 
 [!]name This name only
End of Patch.

Change 22243: Message-ID: <40113F7B.6050701@davidfavor.com>

[H.Merijn Brand]

Change 22243 by [EMAIL PROTECTED] on 2004/01/28 20:30:40

Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 23 Jan 2004 09:36:27 -0600
From: David Favor <[EMAIL PROTECTED]>
Part I: In hints/aix.sh change -qmaxmem=16384 to -qmaxmem=-1
so no compilation stack limits are imposed.

Affected files ...

... //depot/perl/hints/aix.sh#93 edit

Differences ...

 //depot/perl/hints/aix.sh#93 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#92~21453~ Wed Oct 15 12:02:35 2003
+++ perl/hints/aix.sh   Wed Jan 28 12:30:40 2004
@@ -121,7 +121,7 @@
 ccflags="$ccflags -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE"
 case "$cc" in
  *gcc*) ;;
- *) ccflags="$ccflags -qmaxmem=16384 -qnoansialias" ;;
+ *) ccflags="$ccflags -qmaxmem=-1 -qnoansialias" ;;
 esac
 nm_opt='-B'
 ;;
End of Patch.

Change 22247: Drop optimization for -O3 *and higher*

[H.Merijn Brand]

Change 22247 by [EMAIL PROTECTED] on 2004/01/30 08:18:28

Drop optimization for -O3 *and higher*

Affected files ...

... //depot/perl/ext/Storable/hints/linux.pl#5 edit

Differences ...

 //depot/perl/ext/Storable/hints/linux.pl#5 (text) 
Index: perl/ext/Storable/hints/linux.pl
--- perl/ext/Storable/hints/linux.pl#4~22238~   Tue Jan 27 13:51:27 2004
+++ perl/ext/Storable/hints/linux.plFri Jan 30 00:18:28 2004
@@ -8,7 +8,7 @@
 use Config;
 if ($Config{gccversion}) {
 my $optimize = $Config{optimize};
-if ($optimize =~ s/(^| )-O3( |$)/$1-O2$2/) {
+if ($optimize =~ s/(^| )-O[3-9]( |$)/$1-O2$2/) {
$self->{OPTIMIZE} = $optimize;
 }
 }
End of Patch.

Change 22261: If someone chooses xlc as default C compiler, threaded builds

[H.Merijn Brand]

Change 22261 by [EMAIL PROTECTED] on 2004/02/03 12:57:37

If someone chooses xlc as default C compiler, threaded builds
will fail, unless converted to cc_r

Affected files ...

... //depot/perl/hints/aix.sh#94 edit

Differences ...

 //depot/perl/hints/aix.sh#94 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#93~22243~ Wed Jan 28 12:30:40 2004
+++ perl/hints/aix.sh   Tue Feb  3 04:57:37 2004
@@ -314,7 +314,7 @@
esac
;;
cc_r) ;;
-   cc|xl[cC]_r) 
+   cc|xl[cC]|xl[cC]_r) 
echo >&4 "Switching cc to cc_r because of POSIX threads."
# xlc_r has been known to produce buggy code in AIX 4.3.2.
# (e.g. pragma/overload core dumps)  Let's suspect xlC_r, too.
End of Patch.

Change 22267: AIX 3 support removed from default hints after it's separation

[H.Merijn Brand]

Change 22267 by [EMAIL PROTECTED] on 2004/02/04 10:24:33

AIX 3 support removed from default hints after it's separation

Affected files ...

... //depot/perl/hints/aix.sh#95 edit

Differences ...

 //depot/perl/hints/aix.sh#95 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#94~22261~ Tue Feb  3 04:57:37 2004
+++ perl/hints/aix.sh   Wed Feb  4 02:24:33 2004
@@ -1,5 +1,5 @@
 # hints/aix.sh
-# AIX 3.x.x hints thanks to Wayne Scott <[EMAIL PROTECTED]>
+#
 # AIX 4.1 hints thanks to Christopher Chan-Nui <[EMAIL PROTECTED]>.
 # AIX 4.1 pthreading by Christopher Chan-Nui <[EMAIL PROTECTED]> and
 #Jarkko Hietaniemi <[EMAIL PROTECTED]>.
@@ -54,7 +54,7 @@
 # AIX 4.3.* and above default to letting Configure test if nm
 # extraction will work.
 case "$osvers" in
-   3.*|4.1.*|4.2.*)
+   4.1.*|4.2.*)
   case "$usenm" in
  '') usenm='undef'
  esac
@@ -113,19 +113,12 @@
 
 cc=${cc:-cc}
 
-case "$osvers" in
-3*) d_fchmod=undef
-ccflags="$ccflags -D_ALL_SOURCE"
-;;
-*)  # These hints at least work for 4.x, possibly other systems too.
-ccflags="$ccflags -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE"
-case "$cc" in
- *gcc*) ;;
- *) ccflags="$ccflags -qmaxmem=-1 -qnoansialias" ;;
+ccflags="$ccflags -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE"
+case "$cc" in
+*gcc*) ;;
+*) ccflags="$ccflags -qmaxmem=-1 -qnoansialias" ;;
 esac
-nm_opt='-B'
-;;
-esac
+nm_opt='-B'
 
 # These functions don't work like Perl expects them to.
 d_setregid='undef'
@@ -218,14 +211,7 @@
 # -bI:$(PERL_INC)/perl.exp  Read the exported symbols from the perl binary
 # -bE:$(BASEEXT).exp   Export these symbols.  This file contains only one
 #  symbol: boot_$(EXP)  can it be auto-generated?
-case "$osvers" in
-3*) 
-   lddlflags="$lddlflags -H512 -T512 -bhalt:4 -bM:SRE -bI:\$(PERL_INC)/perl.exp 
-bE:\$(BASEEXT).exp -e _nostart -lc"
-   ;;
-*) 
-   lddlflags="$lddlflags -bhalt:4 -bM:SRE -bI:\$(PERL_INC)/perl.exp 
-bE:\$(BASEEXT).exp -bnoentry -lc"
-   ;;
-esac
+lddlflags="$lddlflags -bhalt:4 -bM:SRE -bI:\$(PERL_INC)/perl.exp -bE:\$(BASEEXT).exp 
-bnoentry -lc"
 
 case "$use64bitall" in
 $define|true|[yY]*) use64bitint="$define" ;;
@@ -425,8 +411,8 @@
 cat > UU/use64bitint.cbu <<'EOCBU'
 case "$use64bitint" in
 $define|true|[yY]*)
-   case "`oslevel`" in
-   3.*|4.[012].*)
+   case "`oslevel`" in
+   4.[012].*)
cat >&4 <&4 <

Change 22266: AIX 3 hints split off from default hints in preparation

[H.Merijn Brand]

Change 22266 by [EMAIL PROTECTED] on 2004/02/04 10:16:20

AIX 3 hints split off from default hints in preparation
of a hint file cleanup. aix_4.sh will follow soon

Affected files ...

... //depot/perl/MANIFEST#1139 edit
... //depot/perl/hints/aix_3.sh#1 add

Differences ...

 //depot/perl/MANIFEST#1139 (text) 
Index: perl/MANIFEST
--- perl/MANIFEST#1138~22263~   Tue Feb  3 11:41:11 2004
+++ perl/MANIFEST   Wed Feb  4 02:16:20 2004
@@ -813,6 +813,7 @@
 hints/3b1ccHints for named architecture
 hints/3b1.sh   Hints for named architecture
 hints/aix.sh   Hints for named architecture
+hints/aix_3.sh Hints for named architecture
 hints/altos486.sh  Hints for named architecture
 hints/amigaos.sh   Hints for named architecture
 hints/apollo.shHints for named architecture

 //depot/perl/hints/aix_3.sh#1 (text) 
Index: perl/hints/aix_3.sh
--- /dev/null   Tue May  5 13:32:27 1998
+++ perl/hints/aix_3.sh Wed Feb  4 02:16:20 2004
@@ -0,0 +1,353 @@
+# hints/aix_3.sh
+#
+# On Tue 03 Feb 2004 split off from aix.sh by H.Merijn Brand
+# AIX 3.x.x hints thanks to Wayne Scott <[EMAIL PROTECTED]>
+
+# Notes:
+#
+#- shared libperl support is tricky. if ever libperl.a ends up
+#  in /usr/local/lib/* it can override any subsequent builds of
+#  that same perl release. to make sure you know where the shared
+#  libperl.a is coming from do a 'dump -Hv perl' and check all the
+#  library search paths in the loader header.
+#
+#  it would be nice to warn the user if a libperl.a exists that is
+#  going to override the current build, but that would be complex.
+#
+#  better yet, a solid fix for this situation should be developed.
+
+alignbytes=8
+
+case "$usemymalloc" in
+'')  usemymalloc='n' ;;
+esac
+
+# Intuiting the existence of system calls under AIX is difficult,
+# at best; the safest technique is to find them empirically.
+
+case "$usenm" in
+'') usenm='undef'
+esac
+
+so="a"
+# AIX itself uses .o (libc.o) but we prefer compatibility
+# with the rest of the world and with rest of the scripting
+# languages (Tcl, Python) and related systems (SWIG).
+# Stephanie Beals <[EMAIL PROTECTED]>
+dlext="so"
+
+# Take possible hint from the environment.  If 32-bit is set in the
+# environment, we can override it later.  If set for 64, the
+# 'sizeof' test sees a native 64-bit architecture and never looks back.
+case "$use64bitint$use64bitall$usemorebits" in
+*$define*) cat >&4 <&4 <
+#
+# Tell perl which symbols to export for dynamic linking.
+cccdlflags='none'  # All AIX code is position independent
+   cc_type=xlc # do not export to config.sh
+case "$cc" in
+*gcc*)
+cc_type=gcc
+ccdlflags='-Xlinker'
+if [ "X$gccversion" = "X" ]; then
+   # Done too late in Configure if hinted
+   gccversion=`$cc --version | sed 's/.*(GCC) *//'`
+   fi
+;;
+
+*)  ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -v 
'\.msg\.[A-Za-z_]*\.' | head -1 | awk '{print $1,$2}'`
+case "$ccversion" in
+   '') ccversion=`lslpp -L | grep 'IBM C and C++ Compilers LUM$'`
+   ;;
+
+   *.*.*.*.*.*.*)  # Ahhrgg, more than one C compiler installed
+   first_cc_path=`which ${cc:-cc}`
+   case "$first_cc_path" in
+   *vac*)
+   cc_type=vac
+   ;;
+   /usr/bin/cc)# Check the symlink
+   if [ -h $first_cc_path ]; then
+   ls -l $first_cc_path > reflect
+   if grep -i vac reflect >/dev/null 2>&1 ; then
+   cc_type=vac
+   fi
+   rm -f reflect
+   fi
+   ;;
+   esac
+   ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -i $cc_type | 
head -1`
+   ;;
+   vac*.*.*.*)
+   cc_type=vac
+   ;;
+   esac
+
+   ccversion=`echo "$ccversion" | awk '{print $2}'`
+   case "$ccversion" in
+   3.6.6.0)
+   optimize='none'
+   ;;
+   4.4.0.0|4.4.0.1|4.4.0.2)
+   cat >&4 <&4 <&4 <&4 < UU/usethreads.cbu <<'EOCBU'
+case "$usethreads" in
+$define|true|[yY]*)
+   d_drand48_r='undef'
+   d_endgrent_r='undef

Change 22273: Added hints_4.sh for specific AIX 4 support

[H.Merijn Brand]

Change 22273 by [EMAIL PROTECTED] on 2004/02/06 11:47:14

Added hints_4.sh for specific AIX 4 support
this is the next stage in the general cleanup process
for the AIX hints. More to come

Affected files ...

... //depot/perl/MANIFEST#1140 edit
... //depot/perl/hints/aix_4.sh#1 add

Differences ...

 //depot/perl/MANIFEST#1140 (text) 
Index: perl/MANIFEST
--- perl/MANIFEST#1139~22266~   Wed Feb  4 02:16:20 2004
+++ perl/MANIFEST   Fri Feb  6 03:47:14 2004
@@ -814,6 +814,7 @@
 hints/3b1.sh   Hints for named architecture
 hints/aix.sh   Hints for named architecture
 hints/aix_3.sh Hints for named architecture
+hints/aix_4.sh Hints for named architecture
 hints/altos486.sh  Hints for named architecture
 hints/amigaos.sh   Hints for named architecture
 hints/apollo.shHints for named architecture

 //depot/perl/hints/aix_4.sh#1 (xtext) 
Index: perl/hints/aix_4.sh
--- /dev/null   Tue May  5 13:32:27 1998
+++ perl/hints/aix_4.sh Fri Feb  6 03:47:14 2004
@@ -0,0 +1,589 @@
+# hints/aix.sh
+#
+# Split off from aix.sh on 04 Feb 2004 by H.Merijn Brand
+#
+# AIX 4.1 hints thanks to Christopher Chan-Nui <[EMAIL PROTECTED]>.
+# AIX 4.1 pthreading by Christopher Chan-Nui <[EMAIL PROTECTED]> and
+#Jarkko Hietaniemi <[EMAIL PROTECTED]>.
+# AIX 4.3.x LP64 build by Steven Hirsch <[EMAIL PROTECTED]>
+# Merged on Mon Feb  6 10:22:35 EST 1995 by
+#   Andy Dougherty  <[EMAIL PROTECTED]>
+
+# Contact [EMAIL PROTECTED] for any of the following:
+#
+#- AIX 43x and above support
+#- gcc + threads support
+#- socks support
+#
+# Apr 99 changes:
+#
+#- use nm in AIX 43x and above
+#- gcc + threads now builds
+#[(added support for socks) Jul 99 SOCKS support rewritten]
+#
+# Notes:
+#
+#- shared libperl support is tricky. if ever libperl.a ends up
+#  in /usr/local/lib/* it can override any subsequent builds of
+#  that same perl release. to make sure you know where the shared
+#  libperl.a is coming from do a 'dump -Hv perl' and check all the
+#  library search paths in the loader header.
+#
+#  it would be nice to warn the user if a libperl.a exists that is
+#  going to override the current build, but that would be complex.
+#
+#  better yet, a solid fix for this situation should be developed.
+#
+
+# Configure finds setrgid and setruid, but they're useless.  The man
+# pages state:
+#setrgid: The EPERM error code is always returned.
+#setruid: The EPERM error code is always returned. Processes cannot
+#reset only their real user IDs.
+d_setrgid='undef'
+d_setruid='undef'
+
+alignbytes=8
+
+case "$usemymalloc" in
+'')  usemymalloc='n' ;;
+esac
+
+# Intuiting the existence of system calls under AIX is difficult,
+# at best; the safest technique is to find them empirically.
+
+# AIX 4.3.* and above default to letting Configure test if nm
+# extraction will work.
+case "$osvers" in
+4.1.*|4.2.*)
+   case "$usenm" in
+   '') usenm='undef' ;;
+   esac
+   case "$usenativedlopen" in
+   '') usenativedlopen='false' ;;
+   esac
+   ;;
+*)
+   case "$usenativedlopen" in
+   '') usenativedlopen='true' ;;
+   esac
+   ;;
+esac
+
+so="a"
+# AIX itself uses .o (libc.o) but we prefer compatibility
+# with the rest of the world and with rest of the scripting
+# languages (Tcl, Python) and related systems (SWIG).
+# Stephanie Beals <[EMAIL PROTECTED]>
+dlext="so"
+
+# Take possible hint from the environment.  If 32-bit is set in the
+# environment, we can override it later.  If set for 64, the
+# 'sizeof' test sees a native 64-bit architecture and never looks back.
+case "$OBJECT_MODE" in
+32)
+   cat >&4 <&4 <
+#
+# Tell perl which symbols to export for dynamic linking.
+cccdlflags='none'  # All AIX code is position independent
+   cc_type=xlc # do not export to config.sh
+case "$cc" in
+*gcc*)
+   cc_type=gcc
+   ccdlflags='-Xlinker'
+   if [ "X$gccversion" = "X" ]; then
+   # Done too late in Configure if hinted
+   gccversion=`$cc --version | sed 's/.*(GCC) *//'`
+   fi
+   ;;
+
+*)  ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -v 
'\.msg\.[A-Za-z_]*\.' | head -1 | awk '{print $1,$2}'`
+   case "$ccversion" in
+   '') ccversion=`lslpp -L | grep 'IBM C and C++ Compilers LUM$'`
+   ;;
+
+   *.*.*.*.*.*.*)  # Ah

Change 22299: [comment patch] (ed: mg.c:mg_set() => mg.c:Perl_magic_set())

[H.Merijn Brand]

Change 22299 by [EMAIL PROTECTED] on 2004/02/12 14:32:15

Subject: [comment patch] (ed: mg.c:mg_set() => mg.c:Perl_magic_set())
From: Stas Bekman <[EMAIL PROTECTED]>
Date: Wed, 11 Feb 2004 16:53:54 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/perl.c#538 edit

Differences ...

 //depot/perl/perl.c#538 (text) 
Index: perl/perl.c
--- perl/perl.c#537~22172~  Sat Jan 17 15:58:04 2004
+++ perl/perl.c Thu Feb 12 06:32:15 2004
@@ -963,7 +963,7 @@
 {
/* Set PL_origalen be the sum of the contiguous argv[]
 * elements plus the size of the env in case that it is
-* contiguous with the argv[].  This is used in mg.c:mg_set()
+* contiguous with the argv[].  This is used in mg.c:Perl_magic_set()
 * as the maximum modifiable length of $0.  In the worst case
 * the area we are able to modify is limited to the size of
 * the original argv[0].  (See below for 'contiguous', though.)
End of Patch.

Change 22308: Add some basic POD to lib/ExtUtils/instmodsh so that

[H.Merijn Brand]

Change 22308 by [EMAIL PROTECTED] on 2004/02/16 11:24:59

Add some basic POD to lib/ExtUtils/instmodsh so that
  it has a manpage.
From: "Brendan O'Dea" <[EMAIL PROTECTED]>
Date: Sun, 15 Feb 2004 23:27:17 +1100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/ExtUtils/instmodsh#5 edit

Differences ...

 //depot/perl/lib/ExtUtils/instmodsh#5 (text) 
Index: perl/lib/ExtUtils/instmodsh
--- perl/lib/ExtUtils/instmodsh#4~22258~Sun Feb  1 09:40:02 2004
+++ perl/lib/ExtUtils/instmodsh Mon Feb 16 03:24:59 2004
@@ -186,3 +186,28 @@
 toplevel();
 
 ###
+
+__END__
+
+=head1 NAME
+
+instmodsh - interactive inventory for installed Perl modules
+
+=head1 SYNOPSIS
+
+instmodsh
+
+=head1 DESCRIPTION
+
+C provides an interactive shell to query details of
+installed Perl modules.
+
+The shell provides a list of installed modules, each of which
+may be queried to to list files and directories, checked for missing
+files or packaged up as a tar archive.
+
+=head1 SEE ALSO
+
+ExtUtils::Installed(3perl)
+
+=cut
End of Patch.

Change 22309: Missing semi-colon

[H.Merijn Brand]

Change 22309 by [EMAIL PROTECTED] on 2004/02/16 11:27:34

Missing semi-colon
From: "Brendan O'Dea" <[EMAIL PROTECTED]>
Date: Sun, 15 Feb 2004 23:27:17 +1100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/MIME/Base64/Base64.xs#13 edit

Differences ...

 //depot/perl/ext/MIME/Base64/Base64.xs#13 (text) 
Index: perl/ext/MIME/Base64/Base64.xs
--- perl/ext/MIME/Base64/Base64.xs#12~22124~Mon Jan 12 14:10:51 2004
+++ perl/ext/MIME/Base64/Base64.xs  Mon Feb 16 03:27:34 2004
@@ -341,7 +341,7 @@
}
else {
/* output escaped char (with line breaks) */
-   assert(p < end)
+   assert(p < end);
if (eol_len && linelen > MAX_LINE - 4) {
sv_catpvn(RETVAL, "=", 1);
sv_catpvn(RETVAL, eol, eol_len);
End of Patch.

Change 22310: Fix typo in doc for Encode

[H.Merijn Brand]

Change 22310 by [EMAIL PROTECTED] on 2004/02/16 11:30:29

Fix typo in doc for Encode
From: "Brendan O'Dea" <[EMAIL PROTECTED]>
Date: Sun, 15 Feb 2004 23:27:17 +1100
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Encode/Encode.pm#143 edit

Differences ...

 //depot/perl/ext/Encode/Encode.pm#143 (text) 
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm#142~21991~Mon Dec 29 00:10:51 2003
+++ perl/ext/Encode/Encode.pm   Mon Feb 16 03:30:29 2004
@@ -743,7 +743,7 @@
 If CHECK is true, also checks the data in STRING for being well-formed
 UTF-8.  Returns true if successful, false otherwise.
 
-As of perl 5.8.1, L also has utf8::is_utif8().
+As of perl 5.8.1, L also has utf8::is_utf8().
 
 =item _utf8_on(STRING)
 
End of Patch.

Change 22314: 1. Creating backward compatibility for Configure after patches

[H.Merijn Brand]

Change 22314 by [EMAIL PROTECTED] on 2004/02/17 11:22:24

1. Creating backward compatibility for Configure after patches
   #7 and #22302 to still support 5.8.x and below

2. Small change for building on GNU hurd
   Date: Sun, 15 Feb 2004 23:27:17 +1100
   From: "Brendan O'Dea" <[EMAIL PROTECTED]>
   Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/Configure#555 edit
... //depot/perl/Makefile.SH#297 edit
... //depot/perl/hints/gnu.sh#2 edit

Differences ...

 //depot/perl/Configure#555 (xtext) 
Index: perl/Configure
--- perl/Configure#554~22177~   Mon Jan 19 08:11:22 2004
+++ perl/Configure  Tue Feb 17 03:22:24 2004
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Jan 19 17:27:25 MET 2004 [metaconfig 3.0 PL70]
+# Generated on Tue Feb 17 12:34:40 MET 2004 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 22334: Removed pm_apiversion and xs_apiversion as requested by

[H.Merijn Brand]

Change 22334 by [EMAIL PROTECTED] on 2004/02/18 12:18:52

Removed pm_apiversion and xs_apiversion as requested by
the pumpkin. Chainsaw was still in perfect working order.

Affected files ...

... //depot/perl/Configure#556 edit
... //depot/perl/Cross/config.sh-arm-linux#7 edit
... //depot/perl/NetWare/config.wc#23 edit
... //depot/perl/NetWare/config_H.wc#29 edit
... //depot/perl/Porting/Glossary#150 edit
... //depot/perl/Porting/config.sh#154 edit
... //depot/perl/Porting/config_H#157 edit
... //depot/perl/config_h.SH#285 edit
... //depot/perl/configure.com#187 edit
... //depot/perl/epoc/config.sh#82 edit
... //depot/perl/plan9/config.plan9#18 edit
... //depot/perl/plan9/config_h.sample#9 edit
... //depot/perl/plan9/config_sh.sample#5 edit
... //depot/perl/uconfig.h#73 edit
... //depot/perl/uconfig.sh#60 edit
... //depot/perl/win32/config.bc#138 edit
... //depot/perl/win32/config.gc#138 edit
... //depot/perl/win32/config.vc#145 edit
... //depot/perl/win32/config.vc64#14 edit
... //depot/perl/win32/config_H.bc#140 edit
... //depot/perl/win32/config_H.gc#134 edit
... //depot/perl/win32/config_H.vc#137 edit
... //depot/perl/win32/config_H.vc64#20 edit
... //depot/perl/wince/config.ce#20 edit
... //depot/perl/wince/config_H.ce#20 edit

Differences ...

 //depot/perl/Configure#556 (xtext) 
Index: perl/Configure
--- perl/Configure#555~22314~   Tue Feb 17 03:22:24 2004
+++ perl/Configure  Wed Feb 18 04:18:52 2004
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Tue Feb 17 12:34:40 MET 2004 [metaconfig 3.0 PL70]
+# Generated on Wed Feb 18 12:49:17 MET 2004 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <&4
@@ -21214,7 +21206,6 @@
 phostname='$phostname'
 pidtype='$pidtype'
 plibpth='$plibpth'
-pm_apiversion='$pm_apiversion'
 pmake='$pmake'
 pr='$pr'
 prefix='$prefix'
@@ -21416,7 +21407,6 @@
 vi='$vi'
 voidflags='$voidflags'
 xlibpth='$xlibpth'
-xs_apiversion='$xs_apiversion'
 yacc='$yacc'
 yaccflags='$yaccflags'
 zcat='$zcat'

 //depot/perl/Cross/config.sh-arm-linux#7 (text) 
Index: perl/Cross/config.sh-arm-linux
--- perl/Cross/config.sh-arm-linux#6~21985~ Sat Dec 27 14:55:35 2003
+++ perl/Cross/config.sh-arm-linux  Wed Feb 18 04:18:52 2004
@@ -804,7 +804,6 @@
 phostname='hostname'
 pidtype='pid_t'
 plibpth=''
-pm_apiversion='5.005'
 pmake=''
 pr=''
 prefix='/usr'
@@ -1006,7 +1005,6 @@
 vi=''
 voidflags='15'
 xlibpth='/usr/lib/386 /lib/386'
-xs_apiversion='5.8.3'
 yacc='yacc'
 yaccflags=''
 zcat=''

 //depot/perl/NetWare/config.wc#23 (text) 
Index: perl/NetWare/config.wc
--- perl/NetWare/config.wc#22~19607~Fri May 23 23:23:51 2003
+++ perl/NetWare/config.wc  Wed Feb 18 04:18:52 2004
@@ -732,7 +732,6 @@
 phostname='hostname'
 pidtype='int'
 plibpth=''
-pm_apiversion='5.005'
 pmake=''
 pr=''
 prefix='~INST_TOP~'
@@ -907,7 +906,6 @@
 vi=''
 voidflags='15'
 xlibpth='/usr/lib/386 /lib/386'
-xs_apiversion='5.6.0'
 zcat=''
 zip='zip'
 PERL_REVISION='~PERL_REVISION~'

 //depot/perl/NetWare/config_H.wc#29 (text) 
Index: perl/NetWare/config_H.wc
--- perl/NetWare/config_H.wc#28~22318~  Tue Feb 17 12:06:04 2004
+++ perl/NetWare/config_H.wcWed Feb 18 04:18:52 2004
@@ -3290,41 +3290,6 @@
 #define M_VOID /* Xenix strikes again */
 #endif
 
-/* PERL_XS_APIVERSION:
- * This variable contains the version of the oldest perl binary
- * compatible with the present perl.  perl.c:incpush() and
- * lib/lib.pm will automatically search in 
c:\\perl\\site\\5.9.1\\lib\\NetWare-x86-multi-thread for older
- * directories across major versions back to xs_apiversion.
- * This is only useful if you have a perl library directory tree
- * structured like the default one.
- * See INSTALL for how this works.
- * The versioned site_perl directory was introduced in 5.005,
- * so that is the lowest possible value.
- * Since this can depend on compile time options
- * it is set by Configure.  Other non-default sources
- * of potential incompatibility, such as multiplicity, threads,
- * debugging, 64bits, sfio, etc., are not checked for currently,
- * though in principle we could go snooping around in old
- * Config.pm files.
- */
-/* PERL_PM_APIVERSION:
- * This variable contains the version of the oldest perl
- * compatible with the present perl.  (That is, pure perl modules
- * written for pm_apiversion will still work for the current
- * version).  perl.c:incpush() and lib/lib.pm will automatically
- * search in c:\\perl\\site\\5.9.1\\lib for older directories across major 
versions
- * back to pm_apiversion.  This is only useful if you have a perl
- * library directory tree structured like the default one.  The
- * versioned site_perl library was introduced in 5.005, so that's
- * the default setting for this variable.  It's hard to imagine
- * it changing before Perl6. 

Change 22359: Re: Perl 5.8.1 on IRIX 5.3

[H.Merijn Brand]

Change 22359 by [EMAIL PROTECTED] on 2004/02/23 11:55:08

Subject: Re: Perl 5.8.1 on IRIX 5.3
Date: Thu, 22 Jan 2004 18:35:26 +0100 (CET)
From: Georg Schwarz <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hints/irix_5.sh#14 edit

Differences ...

 //depot/perl/hints/irix_5.sh#14 (text) 
Index: perl/hints/irix_5.sh
--- perl/hints/irix_5.sh#13~20866~  Sun Aug 24 03:00:59 2003
+++ perl/hints/irix_5.shMon Feb 23 03:55:08 2004
@@ -9,6 +9,7 @@
 
 ld=ld
 i_time='define'
+i_inttypes='undef'
 
 case "$cc" in
 *gcc*) ccflags="$ccflags -D_BSD_TYPES" ;;
@@ -18,7 +19,7 @@
# 658: bit-field 'th_off' type required to be int, unsigned int, or signed int. 

# 734: enum declaration must contain enum literals 
# 799: 'long long' is not standard ANSI.
-   ccflags="$ccflags -D_POSIX_SOURCE -ansiposix -D_BSD_TYPES -Olimit 4000 -woff 
608,658,734,799"
+   ccflags="$ccflags -D_POSIX_SOURCE -ansiposix -D_BSD_TYPES -Olimit 4300 -woff 
608,658,734,799"
 # Without this the cc thinks that a struct timeval * is not equivalent to
 # a struct timeval *.  Yeah, you read that right.
 pp_sys_cflags='ccflags="$ccflags -DPERL_IRIX5_SELECT_TIMEVAL_VOID_CAST"'
End of Patch.

Change 22374: AIX hints stage 3: remove AIX 3 and AIX 4 after split off

[H.Merijn Brand]

Change 22374 by [EMAIL PROTECTED] on 2004/02/25 09:32:12

AIX hints stage 3: remove AIX 3 and AIX 4 after split off
One open issue left: promoting to cc_r for threaded builds
need a review to permit users using -Dcc=xlc_r for non
threaded builds

Affected files ...

... //depot/perl/hints/aix.sh#96 edit

Differences ...

 //depot/perl/hints/aix.sh#96 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#95~22267~ Wed Feb  4 02:24:33 2004
+++ perl/hints/aix.sh   Wed Feb 25 01:32:12 2004
@@ -1,25 +1,16 @@
 # hints/aix.sh
-#
-# AIX 4.1 hints thanks to Christopher Chan-Nui <[EMAIL PROTECTED]>.
-# AIX 4.1 pthreading by Christopher Chan-Nui <[EMAIL PROTECTED]> and
-#Jarkko Hietaniemi <[EMAIL PROTECTED]>.
-# AIX 4.3.x LP64 build by Steven Hirsch <[EMAIL PROTECTED]>
-# Merged on Mon Feb  6 10:22:35 EST 1995 by
-#   Andy Dougherty  <[EMAIL PROTECTED]>
 
-#
+# AIX 3 and AIX 4 are split off to aix_3.sh and aix_4.sh
+#    early Feb 2004 by H.Merijn Brand
+# please read comments in there for historic questions.
+#many now stripped here
+
 # Contact [EMAIL PROTECTED] for any of the following:
 #
 #- AIX 43x and above support
 #- gcc + threads support
 #- socks support
 #
-# Apr 99 changes:
-#
-#- use nm in AIX 43x and above
-#- gcc + threads now builds
-#[(added support for socks) Jul 99 SOCKS support rewritten]
-#
 # Notes:
 #
 #- shared libperl support is tricky. if ever libperl.a ends up
@@ -45,29 +36,15 @@
 alignbytes=8
 
 case "$usemymalloc" in
-'')  usemymalloc='n' ;;
-esac
+'')  usemymalloc='n' ;;
+esac
 
 # Intuiting the existence of system calls under AIX is difficult,
 # at best; the safest technique is to find them empirically.
 
-# AIX 4.3.* and above default to letting Configure test if nm
-# extraction will work.
-case "$osvers" in
-   4.1.*|4.2.*)
-  case "$usenm" in
- '') usenm='undef'
- esac
-  case "$usenativedlopen" in
- '') usenativedlopen='false'
- esac
-  ;;
-   *)
-  case "$usenativedlopen" in
- '') usenativedlopen='true'
- esac
-  ;;
-esac
+case "$usenativedlopen" in
+'') usenativedlopen='true' ;;
+esac
 
 so="a"
 # AIX itself uses .o (libc.o) but we prefer compatibility
@@ -80,36 +57,28 @@
 # environment, we can override it later.  If set for 64, the
 # 'sizeof' test sees a native 64-bit architecture and never looks back.
 case "$OBJECT_MODE" in
-32)
-cat >&4 <&4 <&4 <&4 < reflect
-  if grep -i vac reflect >/dev/null 2>&1 ; then
-cc_type=vac
-fi
-  rm -f reflect
-  fi
-;;
-  esac
-ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -i $cc_type | head -1`
-;;
- vac*.*.*.*)
- cc_type=vac
-;;
- esac
-   ccversion=`echo "$ccversion" | awk '{print $2}'`
-   case "$ccversion" in
- 3.6.6.0)
-   optimize='none'
-   ;;
- 4.4.0.0|4.4.0.1|4.4.0.2)
-   cat >&4 <&4 <&4 < reflect
+   if grep -i vac reflect >/dev/null 2>&1 ; then
+   cc_type=vac
+   fi
+   rm -f reflect
+   fi
+   ;;
+   esac
+   ccversion=`lslpp -L | grep 'C for AIX Compiler$' | grep -i $cc_type | 
head -1`
+   ;;
+
+   vac*.*.*.*)
+   cc_type=vac
+   ;;
+   esac
+
+   ccversion=`echo "$ccversion" | awk '{print $2}'`
+   # Redbooks state AIX-5 only supports vac-5.0.2.0 and up
;;
- esac
-esac
+esac
+
 # the required -bE:$installarchlib/CORE/perl.exp is added by
 # libperl.U (Configure) later.
 
@@ -230,15 +168,17 @@
lddlflags=`echo "$lddlflags " | sed -e 's/ -lc / -lc128 -lc /'`
;;
esac
+   ;;
 esac
 
 case "$cc" in
-*gcc*) ;;
-cc*|xlc*) # cc should've been set by line 116 or so if empty.
+*gcc*) ;;
+
+cc*|xlc*) # cc should've been set by line 116 or so if empty.
if test ! -x /usr/bin/$cc -a -x /usr/vac/bin/$cc; then
-   case ":$PATH:" in
+   case ":$PATH:" in
*:/usr/vac/bin:*) ;;
-   *) if test ! -x /QOpenSys/usr/bin/$cc; then
+   *)  if test ! -x /QOpenSys/usr/bin/$cc; then
# The /QOpenSys/usr/bin/$cc saves us if we are
# building natively in OS/400 PASE.
  

Change 22375: Skip the Net/Ping/450_service failures on HP-UX for the time being

[H.Merijn Brand]

Change 22375 by [EMAIL PROTECTED] on 2004/02/25 11:13:12

Skip the Net/Ping/450_service failures on HP-UX for the time being  

Affected files ...

... //depot/perl/lib/Net/Ping/t/450_service.t#9 edit

Differences ...

 //depot/perl/lib/Net/Ping/t/450_service.t#9 (text) 
Index: perl/lib/Net/Ping/t/450_service.t
--- perl/lib/Net/Ping/t/450_service.t#8~20021~  Sun Jul  6 00:19:17 2003
+++ perl/lib/Net/Ping/t/450_service.t   Wed Feb 25 03:13:12 2004
@@ -19,7 +19,8 @@
 # for the TCP Server stuff instead of doing
 # all that direct socket() junk manually.
 
-plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) : ());
+plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) :
+  $^O eq "hpux"? (todo => [9, 18]) : ());
 
 # Everything loaded fine
 ok 1;
End of Patch.

Change 22379: From: Art Haas

[H.Merijn Brand]

Change 22379 by [EMAIL PROTECTED] on 2004/02/26 08:44:53

From: Art Haas <[EMAIL PROTECTED]>
Subject: Replacing '-rdynamic' in Configure script
Date: Fri, 20 Feb 2004 13:53:56 -0600
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/Configure#557 edit

Differences ...

 //depot/perl/Configure#557 (xtext) 
Index: perl/Configure
--- perl/Configure#556~22334~   Wed Feb 18 04:18:52 2004
+++ perl/Configure  Thu Feb 26 00:44:53 2004
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Wed Feb 18 12:49:17 MET 2004 [metaconfig 3.0 PL70]
+# Generated on Thu Feb 26 10:02:07 MET 2004 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <

Change 22400: When threads are active we need -lpthread, but previous `fix' of

[H.Merijn Brand]

Change 22400 by [EMAIL PROTECTED] on 2004/02/27 15:25:27

When threads are active we need -lpthread, but previous `fix' of
now linked libraries invalidated the regex for sed (AIX 5 has no
seperate libc.a and libc_r.a the latter links to the first)

Affected files ...

... //depot/perl/hints/aix.sh#97 edit

Differences ...

 //depot/perl/hints/aix.sh#97 (text) 
Index: perl/hints/aix.sh
--- perl/hints/aix.sh#96~22374~ Wed Feb 25 01:32:12 2004
+++ perl/hints/aix.sh   Fri Feb 27 07:25:27 2004
@@ -244,14 +244,13 @@
esac
 
# Insert pthreads to libswanted, before any libc or libC.
-   set `echo X "$libswanted "| sed -e 's/ \([cC]_r\) / pthreads \1 /'`
+   set `echo X "$libswanted "| sed -e 's/ \([cC]\) / pthreads \1 /'`
shift
libswanted="$*"
# Insert pthreads to lddlflags, before any libc or libC.
-   set `echo X "$lddlflags " | sed -e 's/ \(-l[cC]_r\) / -lpthreads \1 /'`
+   set `echo X "$lddlflags " | sed -e 's/ \(-l[cC]\) / -lpthreads \1 /'`
shift
lddlflags="$*"
-
;;
 esac
 EOCBU
End of Patch.

Change 22484: Re: [PATCH] Re: Proposal to remove support for MachTen

[H.Merijn Brand]

Change 22484 by [EMAIL PROTECTED] on 2004/03/11 10:08:17

Subject: Re: [PATCH] Re: Proposal to remove support for MachTen
From: Dominic Dunlop <[EMAIL PROTECTED]>
Date: Thu, 11 Mar 2004 10:34:01 +0100
Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/README.machten#5 edit
... //depot/perl/hints/machten.sh#21 edit

Differences ...

 //depot/perl/README.machten#5 (text) 
Index: perl/README.machten
--- perl/README.machten#4~10461~Wed Jun  6 16:10:00 2001
+++ perl/README.machten Thu Mar 11 02:08:17 2004
@@ -11,9 +11,36 @@
 This document describes how to build Perl 5 on Power MachTen systems,
 and discusses a few wrinkles in the implementation.
 
-=head2 Compiling Perl 5 on MachTen
+=head2 Perl version 5.8.x and greater not supported
 
-To compile perl under MachTen 4.1.4 (and probably earlier versions):
+B
+If you wish to build a version from the 5.6 track, please
+obtain a source distribution from the archive at
+L and follow the instructions in its
+README.machten file.
+
+MachTen is no longer supported by its developers, Tenon Intersystems.
+A UNIX environment hosted on Mac OS Classic, MachTen has been
+superseded by Mac OS X and by BSD and Linux implementations for Macintosh
+hardware.
+The final version of Power MachTen, 4.1.4, lacks many features found in
+modern implementations of UNIX, and has a number of bugs.
+These shortcomings prevent recent versions of Perl from being able to use
+extensions on MachTen, and cause numerous test suite failures in the
+perl core.
+
+In September 2003, a discussion on the MachTen mailing list determined
+that there was no interest in making a later version of Perl build
+successfully on MachTen.
+Consequently, support for building Perl under MachTen has been suppressed
+in Perl distributions published after February 2004.
+The hints file, F, remains a part of the
+distributions for reference purposes.
+
+=head2 Compiling Perl 5.6.x on MachTen
+
+To compile perl 5.6.x under MachTen 4.1.4 (and probably earlier versions):
 
   ./Configure -de
   make
@@ -86,4 +113,4 @@
 
 =head1 DATE
 
-Version 1.0.1 2000-03-27
+Version 1.1.0 2004-02-13

 //depot/perl/hints/machten.sh#21 (text) 
Index: perl/hints/machten.sh
--- perl/hints/machten.sh#20~18283~ Wed Dec 11 02:18:07 2002
+++ perl/hints/machten.sh   Thu Mar 11 02:08:17 2004
@@ -1,7 +1,14 @@
 #! /bin/bash
 # machten.sh
 # This is for MachTen 4.1.4.  It might work on other versions and variants
-# too.  If it doesn't, tell me, and I'll try to fix it -- [EMAIL PROTECTED]
+# too.  MachTen is now obsolete, lacks many features expected in modern UNIX
+# implementations, and suffers from a number of bugs which are likely never
+# to be fixed. This means that, in the absence of extensive work on
+# this file and on the perl source code, versions of perl later than 5.6.x
+# cannot successfully be built on MachTen. This file enforces this
+# restriction. Should you wish to port a later version of perl to MachTen,
+# feel free to contact me for pointers.
+#  -- Dominic Dunlop <[EMAIL PROTECTED]> 040213
 #
 # Users of earlier MachTen versions might need a fixed tr from ftp.tenon.com.
 # This should be described in the MachTen release notes.
@@ -15,6 +22,8 @@
 #  Martijn Koster <[EMAIL PROTECTED]>
 #  Richard Yeh <[EMAIL PROTECTED]>
 #
+# Prevent building of perls later than 5.6.x, stating why -- see above.
+#  -- Dominic Dunlop <[EMAIL PROTECTED]> 040213
 # Deny system's false claims to support mmap() and munmap(); note
 # also that Sys V IPC (re)disabled by jhi due to continuing inadequacy
 #  -- Dominic Dunlop <[EMAIL PROTECTED]> 00
@@ -44,8 +53,21 @@
 # Do not use perl's malloc; SysV IPC OK -- Neil Cutcliffe, Tenon 961030
 # File::Find's use of link count disabled by Dominic Dunlop 960528
 # Perl's use of sigsetjmp etc. disabled by Dominic Dunlop 960521
-#
-# Comments, questions, and improvements welcome!
+
+# Assume that PERL_REVISON in patchlevel.h is 5.
+# If you want to try building perl-5.8.x or later, set PERL_VERSION_SAFE_MAX
+# appropriately in your environment before running Configure.
+if [ `awk '$1=="#define" && $2=="PERL_VERSION"{print $3}' patchlevel.h` \
+  -gt ${PERL_VERSION_SAFE_MAX:-6} ]
+then
+cat <&4
+
+Perl versions greater than 5.6.x have not been ported to MachTen. If you
+wish to build a version from the 5.6 track, please see the notes in
+README.machten
+EOF
+exit 1
+fi
 #
 # MachTen 4.1.1's support for shadow password file access is incomplete:
 # disable its use completely.
@@ -95,7 +117,7 @@
 # Specify a high level of optimization (-O3 wouldn't do much more)
 optimize=${optimize:--O2 -fomit-frame-pointer}
 
-# Make symbol table listings les voluminous
+# Make symbol table listings less voluminous
 nmopts=-gp
 
 # Set reg_infty -- the maximum allowable number of repeats in regular
End of Patch.

Change 22617: Re: [PATCH] MIME::Base64 PERL_NO_GET_CONTEXT

[H.Merijn Brand]

Change 22617 by [EMAIL PROTECTED] on 2004/03/31 11:33:09

Subject: Re: [PATCH] MIME::Base64 PERL_NO_GET_CONTEXT
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 30 Mar 2004 04:29:18 -0800
Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/MIME/Base64/Base64.pm#11 edit
... //depot/perl/ext/MIME/Base64/Base64.xs#15 edit
... //depot/perl/ext/MIME/Base64/Changes#9 edit
... //depot/perl/ext/MIME/Base64/QuotedPrint.pm#18 edit

Differences ...

 //depot/perl/ext/MIME/Base64/Base64.pm#11 (text) 
Index: perl/ext/MIME/Base64/Base64.pm
--- perl/ext/MIME/Base64/Base64.pm#10~22325~Tue Feb 17 15:10:22 2004
+++ perl/ext/MIME/Base64/Base64.pm  Wed Mar 31 03:33:09 2004
@@ -1,6 +1,6 @@
 package MIME::Base64;
 
-# $Id: Base64.pm,v 3.0 2004/01/14 11:59:07 gisle Exp $
+# $Id: Base64.pm,v 3.1 2004/03/29 11:55:49 gisle Exp $
 
 use strict;
 use vars qw(@ISA @EXPORT $VERSION);
@@ -10,7 +10,7 @@
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw(encode_base64 decode_base64);
 
-$VERSION = '3.00_01';
+$VERSION = '3.01';
 
 MIME::Base64->bootstrap($VERSION);
 

 //depot/perl/ext/MIME/Base64/Base64.xs#15 (text) 
Index: perl/ext/MIME/Base64/Base64.xs
--- perl/ext/MIME/Base64/Base64.xs#14~22325~Tue Feb 17 15:10:22 2004
+++ perl/ext/MIME/Base64/Base64.xs  Wed Mar 31 03:33:09 2004
@@ -1,4 +1,4 @@
-/* $Id: Base64.xs,v 3.0 2004/01/14 11:59:07 gisle Exp $
+/* $Id: Base64.xs,v 3.2 2004/03/29 11:35:13 gisle Exp $
 
 Copyright 1997-2004 Gisle Aas
 
@@ -28,6 +28,7 @@
 #ifdef __cplusplus
 extern "C" {
 #endif
+#define PERL_NO_GET_CONTEXT /* we want efficiency */
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"

 //depot/perl/ext/MIME/Base64/Changes#9 (text) 
Index: perl/ext/MIME/Base64/Changes
--- perl/ext/MIME/Base64/Changes#8~22325~   Tue Feb 17 15:10:22 2004
+++ perl/ext/MIME/Base64/ChangesWed Mar 31 03:33:09 2004
@@ -1,3 +1,16 @@
+2004-03-29   Gisle Aas <[EMAIL PROTECTED]>
+
+   Release 3.01
+
+   By compiling the extension with PERL_NO_GET_CONTEXT we can
+   make it slightly faster on a threaded perl.  No change on a
+   regular perl.  Patch provided by Beau E. Cox <[EMAIL PROTECTED]>.
+
+   Fixed missing ";" with assert.   Patch provided by
+   Brendan O'Dea <[EMAIL PROTECTED]>.
+
+
+
 2004-01-14   Gisle Aas <[EMAIL PROTECTED]>
 
Release 3.00

 //depot/perl/ext/MIME/Base64/QuotedPrint.pm#18 (text) 
Index: perl/ext/MIME/Base64/QuotedPrint.pm
--- perl/ext/MIME/Base64/QuotedPrint.pm#17~22325~   Tue Feb 17 15:10:22 2004
+++ perl/ext/MIME/Base64/QuotedPrint.pm Wed Mar 31 03:33:09 2004
@@ -1,6 +1,6 @@
 package MIME::QuotedPrint;
 
-# $Id: QuotedPrint.pm,v 3.0 2004/01/14 11:59:07 gisle Exp $
+# $Id: QuotedPrint.pm,v 3.1 2004/03/29 11:55:49 gisle Exp $
 
 use strict;
 use vars qw(@ISA @EXPORT $VERSION);
@@ -9,7 +9,7 @@
 @ISA = qw(Exporter);
 @EXPORT = qw(encode_qp decode_qp);
 
-$VERSION = "3.00";
+$VERSION = "3.01";
 
 use MIME::Base64;  # will load XS version of {en,de}code_qp()
 
End of Patch.