BUG: MAKEMAKER 6.30_01 and blead in MM_UNIX.pm for VMS

2005-09-18 Thread John E. Malmberg
In sub makefile in module MM_UNIX.PM, the command "false" is being added 
to the DESCRIP.MMS as part of the MAKE_FRAG text block.


As there is no "false" command on VMS, this is causing rerunning a make 
to fail.


Would adding the following line before the return $m be the fix for 
this?  Or is something else needed to make sure only the last line is 
removed?


$m =~ s/false\n// if $IsVMS;

-John


t/io/fs.t triply linked issue - Test does not match comments

2005-09-18 Thread John E. Malmberg
When I enable hard links on VMS, it exposed that the t/io/fs.t is not 
testing what the comments indicate that it is testing.


The correct test would be to see if the $mode of the third link matched 
the $mode for the original file.


What the test is actually doing is testing to see if the umask function 
is behaving according to the UNIX definition.


With VMS, setting the umask and related behaviors into the UNIX mode is 
not the default behavior.


I need to make a change in this routine to get it to pass on VMS when 
hard links support is built in to Perl, it is skipped otherwise.


One option is to fix the test to actually test what it claims to be 
testing.  This could affect other platforms, but really should not.


Now should the test be testing for a UNIX compliant umask()?  And since 
VMS by default is not set to UNIX compliant, it would need to know when 
that pass would be expected to pass, or to when to put VMS into that mode.


-John
[EMAIL PROTECTED]
Personal Opinion Only


bleadperl DProf.xs:140: warning: `unused' attribute ignored

2005-09-18 Thread Yitzchak Scott-Thoennes
bleadperl is getting:
DProf.xs:140: warning: `unused' attribute ignored

The following fixes it; I thought about defining a pTHX_bare in
perl.h that leaves off the register and PERL_UNUSED_DECL from pTHX,
but decided there really wasn't going to be a lot of other demand
for it.  The aTHX would have worked as is, but I thought it better
to make both mentions just "my_perl".

--- p/ext/Devel/DProf/DProf.xs.orig 2005-07-08 10:03:01.0 -0700
+++ p/ext/Devel/DProf/DProf.xs  2005-09-18 18:13:43.028478400 -0700
@@ -136,9 +136,7 @@
 long long  start_cnt;
 #endif
 #ifdef PERL_IMPLICIT_CONTEXT
-#  define register
-pTHX;
-#  undef register
+PerlInterpreter *my_perl;
 #endif
 } prof_state_t;
 
@@ -170,7 +168,7 @@
 #define g_default_perldb   g_prof_state.default_perldb
 #define g_depthg_prof_state.depth
 #ifdef PERL_IMPLICIT_CONTEXT
-#  define g_THXg_prof_state.aTHX
+#  define g_THXg_prof_state.my_perl
 #endif
 #ifdef OS2
 #  define g_frequ  g_prof_state.frequ


[perl #37102] Additional information

2005-09-18 Thread Geoff Mottram
The problem with regular expressions getting clobbered only occurs while 
running Perl with the "-d" (debug) option. I believe it is the "sub()" 
method of the DB.pm module that contains the regular expression that 
clobbers the running script's regular expression as described in my bug 
report.


Best,

Geoff Mottram
[EMAIL PROTECTED]


RFC - VMS behavior changes proposal

2005-09-18 Thread John E. Malmberg

I am looking for comments on a couple of VMS specific behavior issues.

Unless there are some objections, I would like to make these changes:

1. Fix usage of HOME and a few other environment variables used inside 
of the Perl binary.


Perl is assuming that the HOME and possibly some other environment 
variables are always in UNIX format early in the startup of the 
interpreter.  When the CRTL is in UNIX mode, then this works, in the 
CRTL default mode the resulting file is an illegal filename from the 
combination of a VMS device and directory concatenated to a UNIX path or 
file.  This is apparently stored and then used every time that Perl 
needs to look up certain types of files.


I would like to make the change so that in the startup, environment 
variables like "HOME" that Perl expects to be in UNIX format are in UNIX 
format as I find them.  These tend to get exposed while I am debugging 
other issue.



2. If the VMS process parse style is set to extended, then Perl will 
default to having the C features for EFS character sets and case 
preserved behavior enabled, once those modes are working.



3. If a way can be found to detect that Perl is running under the GNV 
bash shell in the LIB$INITIALIZE section, which means %ENV{SHELL} = 
"bash", for Perl to default for the CRTL running UNIX filename report 
mode.  And eventually assume that the GNV bash shell will be handling 
spawned commands.


-John
[EMAIL PROTECTED]
Personal Opinion Only


Re: Storable 2.15 on OSX 10.4 with maintperl fails "make test"

2005-09-18 Thread Yitzchak Scott-Thoennes
On Sat, Sep 17, 2005 at 07:31:53AM -0700, Randal L. Schwartz wrote:
> > "Randal" == Randal L Schwartz  writes:
> 
> > "Nicholas" == Nicholas Clark <[EMAIL PROTECTED]> writes:
> >>> I've said "maintperl" a few times already.
> 
> Nicholas> No, I'm not, in as much as I don't understand why the perl
> Nicholas> you installed only had a pure perl List::Utils
> 
> Randal> What do you want me to send you?  The entire "make all / make 
> install" log?
> Randal> Or should I look for something in particular?
> 
> OK, I just did another make install, and here's the relevant lines:
> 
> ...
>   /opt/perl/snap/lib/5.8.7/darwin/auto/List/Util/Util.bundle
> ...
>   /opt/perl/snap/lib/5.8.7/List/Util.pm
>   /opt/perl/snap/lib/5.8.7/Scalar/Util.pm
> ...
> 
> Yup.  *No* Scalar/Util.bundle
> 
> That'd do it.
> 
> What do you want to do next?

Did one even get created?

How about the make all output starting with:

Writing Makefile for List::Util


Re: Smoke [5.9.3] 25409 FAIL(XF) bsd/os 4.1 (i386/1 cpu)

2005-09-18 Thread Yitzchak Scott-Thoennes
On Sat, Sep 17, 2005 at 11:07:50AM +0200, Jos I. Boumans wrote:
> 
> On Sep 14, 2005, at 1:56 PM, [EMAIL PROTECTED] wrote:
> 
> >Automated smoke report for 5.9.3 patch 25409
> >fixit.xs4all.nl: Pentium II (i386/1 cpu)
> >onbsd/os - 4.1
> >using cc version egcs-2.91.66 19990314 (egcs-1.1.2 release)
> >smoketime 3 hours 56 minutes (average 1 hour 58 minutes)
> >
> >Summary: FAIL(XF)
> 
> And this was the last smoke report to come from that machine -- it was 
> the
> last BSDI box in our server park, and it's been retired.

Pity we never got a chance to track down that op/int.t failure.


Re: [EMAIL PROTECTED] VMS fix required by Change 25387

2005-09-18 Thread Steve Peters
On Sun, Sep 18, 2005 at 09:04:34PM +0200, H.Merijn Brand wrote:
> On Sun, 18 Sep 2005 14:53:09 -0400, "John E. Malmberg" <[EMAIL PROTECTED]> 
> wrote:
> 
> > Two config parameters were added to Configure so they also need to be 
> > added to configure.com.  VMS does not have those functions.
> 
> ooh man, do I feel guilty! Thanks, applied as change #25474
> 
> Any win32 people that can test for the win32env?
> 
> > -John
> > [EMAIL PROTECTED]
> > Personal Opinion Only
> 
I've not had any problems with Win32 today, but I don't normally build
on it.

Steve Peters
[EMAIL PROTECTED]


Re: [EMAIL PROTECTED] VMS fix required by Change 25387

2005-09-18 Thread H.Merijn Brand
On Sun, 18 Sep 2005 14:53:09 -0400, "John E. Malmberg" <[EMAIL PROTECTED]> 
wrote:

> Two config parameters were added to Configure so they also need to be 
> added to configure.com.  VMS does not have those functions.

ooh man, do I feel guilty! Thanks, applied as change #25474

Any win32 people that can test for the win32env?

> -John
> [EMAIL PROTECTED]
> Personal Opinion Only


-- 
H.Merijn BrandAmsterdam Perl Mongers (http://amsterdam.pm.org/)
using Perl 5.6.2, 5.8.0, 5.8.5, & 5.9.2  on HP-UX 10.20, 11.00 & 11.11,
 AIX 4.3 & 5.2, SuSE 9.2 & 9.3, and Cygwin. http://www.cmve.net/~merijn
Smoking perl: http://www.test-smoke.org,perl QA: http://qa.perl.org
 reports  to: [EMAIL PROTECTED],perl-qa@perl.org


[EMAIL PROTECTED] VMS fix required by Change 25387

2005-09-18 Thread John E. Malmberg
Two config parameters were added to Configure so they also need to be 
added to configure.com.  VMS does not have those functions.


-John
[EMAIL PROTECTED]
Personal Opinion Only
--- configure.com_25452 Sat Sep 17 21:48:07 2005
+++ configure.com   Sun Sep 18 03:22:46 2005
@@ -5580,6 +5580,8 @@
 $ WC "d_lseekproto='define'"
 $ WC "d_lstat='undef'"
 $ WC "d_madvise='undef'"
+$ WC "d_malloc_size='undef'"
+$ WC "d_malloc_good_size='undef'"
 $ WC "d_mblen='" + d_mblen + "'"
 $ WC "d_mbstowcs='" + d_mbstowcs + "'"
 $ WC "d_mbtowc='" + d_mbtowc + "'"


Not a problem (was Re: more on List::Util and maintperl)

2005-09-18 Thread Randal L. Schwartz
> "Randal" == Randal L Schwartz  writes:

Randal> So, here's what my lib/5.8.7 looked like before maintperl "make 
install":

Randal> localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
Randal> -r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
Randal> drwxr-xr-x   2 merlyn  wheel  1024 Sep 17 07:33 darwin/auto/List/Util

Randal> and after maintperl "make install"

Randal> localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
Randal> -r--r--r--   1 merlyn  wheel  6601 Sep 18 09:33 List/Util.pm
Randal> -r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
Randal> drwxr-xr-x   2 merlyn  wheel  1024 Sep 18 09:33 darwin/auto/List/Util

Randal> Note the non-XS List/Util.pm is new.  Now after cpan-shell "force 
install List::Util":

Randal> localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
Randal> -r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
Randal> drwxr-xr-x   2 merlyn  wheel  1024 Sep 18 09:37 darwin/auto/List/Util

Randal> This unlinked List/Util.pm (shadowing).

Randal> Something is not right about the installation of List::Util from
Randal> maintperl.

That old "darwin/List/Util.pm" bothered me.  So I removed it.  Something
installed it a while back, but I no longer care, because installing
maintperl puts in a Scalar/Util that works right for weak.

So, while it might have been an issue with 5.8.7 near may 23rd, it's
no longer a problem (except for people installing over existing
installations, like me).  Sorry for the false alarm.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
 http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


more on List::Util and maintperl

2005-09-18 Thread Randal L. Schwartz

So, here's what my lib/5.8.7 looked like before maintperl "make install":

localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
-r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
drwxr-xr-x   2 merlyn  wheel  1024 Sep 17 07:33 darwin/auto/List/Util

and after maintperl "make install"

localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
-r--r--r--   1 merlyn  wheel  6601 Sep 18 09:33 List/Util.pm
-r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
drwxr-xr-x   2 merlyn  wheel  1024 Sep 18 09:33 darwin/auto/List/Util

Note the non-XS List/Util.pm is new.  Now after cpan-shell "force install 
List::Util":

localhost:..erl/snap/lib/5.8.7 % ls -ld **/List/Util*
-r--r--r--   1 merlyn  wheel  6598 May 23 07:06 darwin/List/Util.pm
drwxr-xr-x   2 merlyn  wheel  1024 Sep 18 09:37 darwin/auto/List/Util

This unlinked List/Util.pm (shadowing).

Something is not right about the installation of List::Util from
maintperl.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
 http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


[perl #37191] IPC::Open3 failures

2005-09-18 Thread via RT
# New Ticket Created by  [EMAIL PROTECTED] 
# Please include the string:  [perl #37191]
# in the subject line of all future correspondence about this issue. 
# https://rt.perl.org/rt3/Ticket/Display.html?id=37191 >


I can consistently get this error:

C:\tools\ECS>CDC_DMX_Hosts.pl -a reveal -h w2pf -s 40 0perl -V
Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
  Platform:
osname=MSWin32, osvers=5.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=de
fine
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
  Compiler:
cc='cl', ccflags ='-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32
-D_CONSOLE -
DNO_STRICT -DHAVE_DES_FCRYPT -DBUILT_BY_ACTIVESTATE -DNO_HASH_SEED
-DUSE_SITECUS
TOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO
-DPERL_MSVCRT_RE
ADFIX',
optimize='-MD -Zi -DNDEBUG -O1',
cppflags='-DWIN32'
ccversion='12.00.8804', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64',
lseeksi
ze=8
alignbytes=8, prototype=define
  Linker and Libraries:
ld='link', ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf
-libpath:"C:
\Perl\lib\CORE"  -machine:x86'
libpth=\lib
libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32
.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib
ws2_
32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comd
lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib
ws2_32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl58.lib
gnulibc_version='undef'
  Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug
-opt:ref,icf  -
libpath:"C:\Perl\lib\CORE"  -machine:x86'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES
USE_SITECUSTOMIZE PERL_IMPLICIT_CONTEXT
PERL_IMPLICIT_SYS
  Locally applied patches:
ActivePerl Build 813 [148120]
Iin_load_module moved for compatibility with build 806
PerlEx hacks for CGI::Carp
Less verbose ExtUtils::Install and Pod::Find
instmodsh upgraded from ExtUtils-MakeMaker-6.25
24699 ICMP_UNREACHABLE handling in Net::Ping
21540 Fix backward-compatibility issues in if.pm
  Built under MSWin32
  Compiled at Jun  6 2005 13:36:37
  @INC:
C:/Perl/lib
C:/Perl/site/lib
.