at does:
#include
sys$exit(0);
could support, given appropriate hooks into perl's main().
I personally do not feel any need for obtaining $STATUS 0,
but some folks do.
How about putting together a trial VMS:: extension to
implement trials of your proposals so that folks can try it out
from CPAN?
Peter Prymmer
an
indication of
failure is what is asked for and Michael's proposed perl -e "exit 1" will
suit the task. Although the "exit 44" I had suggested could also work on
VMS,
the "exit 1" will work there too (despite the doubt I might have spread by
my earlier statement).
Peter Prymmer
MS has been rebuilt.
Please run MMK to build the extension.
MCR $dka300:[perl.perl-5_8_1_root]perl.exe -e "exit 1"
%SYSTEM-F-ABORT, abort
%MMK-F-ERRUPD, error status %X002C occurred when updating target
DESCRIP.MMS
I guess that is the preferred behavior (but to be
honest the old behavior is not unattractive either).
Peter Prymmer
Michael G Schwern <[EMAIL PROTECTED]> wrote on 09/20/2005 01:12:51 PM:
> On Tue, Sep 20, 2005 at 07:15:41AM -0400, Peter Prymmer wrote:
> > > perl -e 'exit 1'
> >
> > On VMS the construct shown is true since exit 1 is the way to say exit
0.
>
> I th
r> echo $?
255
Hence you may want to use something like 44 on VMS (noting that a message
will
be generated):
$ perl -e "exit 44"
%SYSTEM-F-ABORT, abort
the non portability of exit values is discussed in perlport.pod.
Peter Prymmer
not useful in a practical sense
particularly
for ODS-2 type file specifications.
Peter Prymmer
= ""'"+"'Perl' ''vms_prefix':[utils]h2ph.com"""
$ WRITE CONFIG "$ h2xs == ""'"+"'Perl' ''vms_prefix':[utils]h2xs.com"""
$ WRITE CONFIG "$!perlcc == ""'"+"'Perl' ''vms_prefix':[utils]perlcc.com"""
+$ WRITE CONFIG "$ perlivp == ""'"+"'Perl' ''vms_prefix':[utils]perlivp.com"""
$ WRITE CONFIG "$ splain == ""'"+"'Perl' ''vms_prefix':[utils]splain.com"""
$ ELSE
$ WRITE CONFIG "$ Perldoc == ""Perl ''vms_prefix':[lib.pod]Perldoc.com -t"""
@@ -6076,6 +6099,7 @@
$ WRITE CONFIG "$ h2ph == ""Perl ''vms_prefix':[utils]h2ph.com"""
$ WRITE CONFIG "$ h2xs == ""Perl ''vms_prefix':[utils]h2xs.com"""
$ WRITE CONFIG "$!perlcc == ""Perl ''vms_prefix':[utils]perlcc.com"""
+$ WRITE CONFIG "$ perlivp == ""Perl ''vms_prefix':[utils]perlivp.com"""
$ WRITE CONFIG "$ splain == ""Perl ''vms_prefix':[utils]splain.com"""
$ ENDIF
$ CLOSE CONFIG
End of Patch.
Peter Prymmer
-- Forwarded message --
Date: Thu, 12 Jul 2001 17:39:27 -0700 (PDT)
From: Peter Prymmer <[EMAIL PROTECTED]>
To: Mark-Jason Dominus <[EMAIL PROTECTED]>
Subject: Re: [PATCH: perl@11328] update the octal situation in perlfaq4.pod
On Thu, 12 Jul 2001, Mark-Jason D
'a' ? 'a' : '>';
+ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
}
else { ST(0) = &PL_sv_undef; }
@@ -404,8 +409,8 @@
if (fd >= 0 &&
((fp = fdopen(fd, &("r\000w\000r+"[2*i]))) != Null(FILE*))) {
pio_fp = PerlIO_importFILE(fp,0);
- SV *fh = newFH(pio_fp,"<>++"[i]);
- ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
+ fh = newFH(pio_fp,"<>++"[i]);
+ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
}
else { ST(0) = &PL_sv_undef; }
End of Patch.
Peter Prymmer
add the "_ROOT" and
adding stronger recommendations for doing the `mms install` will help
though.
Peter Prymmer
On Thu, 31 May 2001, Peter Prymmer wrote:
> Here is a report on the t/lib/cwd.t test trouble on OS/390 with
> recent snapshots. With perl@10328 the `make test` suite hangs
> apparently trying to get through t/lib/cwd.t. I find however
> that running the test by hand no longer ha
` subset either.
Unfortunately the box has no net connection and I cannot afford the time
to sneakernet a recent perl tar ball over to it to do any test builds :-(
Peter Prymmer
unsigned long int Perl_do_spawn (pTHX_ char *);
-FILE * my_fdopen (int, char *);
+FILE * my_fdopen (int, const char *);
int my_fclose (FILE *);
intmy_fwrite (void *, size_t, size_t, FILE *);
intPerl_my_flush (pTHX_ FILE *);
End of Patch.
Peter Prymmer
1
@@ -83,6 +83,11 @@
# "wrong" and "right" may change if SelfLoader is changed.
my %wrong = ( Parent => 'Parent', Child => 'Parent' );
my %right = ( Parent => 'Parent', Child => 'Child' );
+if ($^O eq 'VMS') {
+# extra line feeds for MBX IPC
+%wrong = ( Parent => "Parent\n", Child => "Parent\n" );
+%right = ( Parent => "Parent\n", Child => "Child\n" );
+}
my @module = qw(Parent Child)
;
sub fail {
End of Patch.
Peter Prymmer
On Wed, 25 Apr 2001, Peter Prymmer wrote:
> The enclosed patch addresses several issues in the vms configure && build
> process. Files affected:
>
> - configure.com
[snip]
> Thanks to the following folks for very helpful discussions on putting this
> togethe
This is a build failure report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.33 running under perl v5.7.0.
-
[Please enter your report here]
`make test` dies on a -des Configured default build of perl on O
On Tue, 13 Mar 2001, H.Merijn Brand wrote:
> On Mon, 12 Mar 2001 16:25:56 -0800 (PST), Peter Prymmer <[EMAIL PROTECTED]> wrote:
> > + case "$dflt$osname" in
> > + .os390) echo "(Attempting domain name extrac
3 FWIW)
>
> Well it means that character ranges and even transliterations
> are essentially broken when you try to use them for working on
> binary data.
Yes it does. This BTW looks like a good candidate for a regression test.
Peter Prymmer
with either POSIX
standards or the POSIX extension.
Peter Prymmer
d ebcdic.c into one of the
other files (util.c is just fine with me as any) then also to look into
renaming the corresponding Encode generated file. The hints files for the
EBCDIC platforms: hints/os390.sh, posix-bc.sh, vmesa.sh would also need
tweaking for their archobjs (sp?) variable setting.
Peter Prymmer
f file_rdt .GTS. pod_file_rdt then do_copy := true
+$ endif
+$ if do_copy then copy/log/noconfirm 'file' 'pod_file'
+$ endif
+$ endif
+$ goto extra_loop
+$extra_close:
+$ close EXTRA
+$ if p1 .eqs. "CLEAN" .and. f$search("extra.pods;-1") .nes. "" then -
+purge/nolog extra.pods
+$!-- extra_pods.com
+$EOExtra_Pods$
$!
$! Warn of dangerous symbols or logical names
$!
diff -ru perl.8585.orig/vms/descrip_mms.template perl/vms/descrip_mms.template
--- perl.8585.orig/vms/descrip_mms.template Sun Jan 28 10:27:57 2001
+++ perl/vms/descrip_mms.template Wed Jan 31 10:31:27 2001
@@ -353,7 +353,7 @@
.endif
base : miniperl perl
@ $(NOOP)
-extras : dynext libmods utils podxform
+extras : dynext libmods utils podxform extra.pods
@ $(NOOP)
libmods : $(LIBPREREQ)
@ $(NOOP)
@@ -363,6 +363,8 @@
@ $(NOOP)
x2p : [.x2p]a2p$(E) [.x2p]s2p.com [.x2p]find2perl.com
@ $(NOOP)
+extra.pods : miniperl
+ @ @extra_pods.com
pod0 = [.lib.pod]perl.pod [.lib.pod]perl5004delta.pod [.lib.pod]perl5005delta.pod
pod1 = [.lib.pod]perlapi.pod [.lib.pod]perlapio.pod [.lib.pod]perlbook.pod
@@ -1276,6 +1278,7 @@
- If F$Search("[.VMS.Ext...]*.C").nes."" Then Delete/NoConfirm/Log
[.VMS.Ext...]*.C;*
- If F$Search("[.VMS.Ext...]*$(O)").nes."" Then Delete/NoConfirm/Log
[.VMS.Ext...]*$(O);*
- If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;*
+ - @extra_pods CLEAN
realclean : clean
- @make_ext "$(dynamic_ext)" "$(MINIPERL_EXE)" "$(MMS)" realclean
@@ -1286,6 +1289,7 @@
- $(MINIPERL) -e "use File::Path; rmtree(\@ARGV,1,0);" config
- If F$Search("Descrip.MMS").nes."" Then Delete/NoConfirm/Log Descrip.MMS;*
- If F$Search("make_ext.Com").nes."" Then Delete/NoConfirm/Log make_ext.Com;*
+ - If F$Search("extra_pods.Com").nes."" Then Delete/NoConfirm/Log
+extra_pods.Com;*
- $(MINIPERL) -e "use File::Path;
rmtree(['lib/auto','lib/VMS','lib/$(ARCH)'],1,0);"
- If F$Search("*.TS").nes."" Then Delete/NoConfirm/Log *.TS;*
- If F$Search("[.Lib]DynaLoader.pm").nes."" Then Delete/NoConfirm/Log
[.Lib]DynaLoader.pm;*
End of Patch.
I guess I'll try to build the 5.6.1 trail2 now.
Peter Prymmer
On Mon, 22 Jan 2001, Simon Cozens wrote:
> On Mon, Jan 22, 2001 at 12:49:18PM -0800, Peter Prymmer wrote:
> > P.S. the bad news is that the need to go hacking into UTF8 eq ops has
> > disappeared - at least for now (I know you were looking forward to that
> > ;-).
>
&
On Mon, 22 Jan 2001, Peter Prymmer wrote:
> This one looks very telling:
>
> $ ./perl -le 'printf "%v", $^V'
> %v$
How about if we try that with a "%vd" format and the 8506 perl kit?
$ ./perl -le 'printf "%vd", $^V'
5.7.0$
>
PV = 0x1a8c7ba8 "5.7.0"\0
CUR = 5
LEN = 6
And here is your example:
$ ./perl -le 'use Devel::Peek; $a = sprintf "%vd", v128.256; Dump($a)'
SV = PV(0x1a8c404c) at 0x1a8cfe54
REFCNT = 1
FLAGS = (POK,pPOK,UTF8)
PV = 0x1a8c7ba8 "128.256"\0
CUR = 7
LEN = 8
Sorry about the confusion.
Peter Prymmer
n.xs Fri Jan 19 18:34:02 2001
@@ -112,7 +112,7 @@
SaveError("%s",dlerror()) ;
Note that SaveError() takes a printf format string. Use a "%s" as
- the first parameter if the error may contain and % characters.
+ the first parameter if the error may contain any % characters.
*/
End of Patch.
Peter Prymmer
..\README.vos ..\pod\perlvos.pod
+ copy ..\README.win32 ..\pod\perlwin32.pod
cd ..\pod && $(MAKE) -f ..\win32\pod.mak converters
cd ..\lib && $(PERLEXE) lib_pm.PL
$(PERLEXE) $(PL2BAT) $(UTILS)
End of Patch.
Peter Prymmer
On Tue, 16 Jan 2001, Philip Newton wrote:
> On 15 Jan 01, at 16:19, Peter Prymmer wrote:
>
> > +=head2 Floating point anomolies
>
> anomalies.
Thanks.
Peter Prymmer
file nor the t nor t/lib directories.
None the less switching C<($y * 1e-5) * 1e5> to C<($y / 1e5) * 1e5>
should be a performance hit on architectures whose fp division is
considerable slower than fp multiplication. Would you prefer that there
be new extracted versions of those lib files such as lib/bigint_pl.PL
and lib/Math/BigInt_pm.PL? That might look in part like:
use Config;
if ($Config{'fp_divide_broken'} eq 'define') {
print OUT '$prod - ($car = int($prod / 1e5)) * 1e5;';
}
else {
print OUT '$prod - ($car = int($prod * 1e-5)) * 1e5;';
}
or somesuch?
Peter Prymmer
This is a success report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.33 running under perl v5.6.1.
Perl reported to build OK on this system.
(It did `make test` 100% but `make okfile` saw fit to recompile most *.c
and then link miniperl and extract all the pod2*.PL util
This is a success report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.33 running under perl v5.6.1.
Perl reported to build OK on this system.
---
Flags:
category=install
severity=none
---
Site configuration information for perl v5.6.1:
Configured by pvhp at Mon
Devel::DProf
+Data::Dumper attrs VMS::Stdio VMS::DCLsym B SDBM_File Storable Thread Sys::Hostname"
$ IF Using_Dec_C .OR. using_cxx
$ THEN
$ dflt = dflt + " POSIX"
End of Patch.
Please let me know if there was any trouble there. Thank you.
Peter Prymmer
e added?
Thanks I see it in toke.c. It looks like S_syylex made it into
the transfer vector, and that is where the problem currently lies:
$ search PERLSHR_BLD.OPT;1 syylex
SYMBOL_VECTOR=(S_syylex=PROCEDURE)
This will require a bit of messing with.
Peter Prymmer
8;
+}
# 9 - changing UTF8 characters in a UTF8 string, same length.
$l = chr(300); $r = chr(400);
End of Patch.
Peter Prymmer
t; 44\n";
+}
+else {
+# \ is 188 in POSIX-BC
+print "\xBC_" eq "/_" ? "ok" : "not ok", " 44\n";
+}
+}
+else {
+print "\x2F_" eq "/_" ? "ok" : "not ok", " 44\n";
+}
End of "Patch"
The odd thing is that the in-eq-quality of "\xE0_" and "/_" appears
under both perl 5.005_03 and @7159 as these one-liners demonstrate:
$ perl5.005_03 -e ' print "\xE0_" eq "/_" ? "ok" : "not ok", " 44\n";'
not ok 44
$ perl5.005_03 -e ' print "\x{E0}_" eq "/_" ? "ok" : "not ok", " 44\n";'
not ok 44
$ perl5.005_03 -e ' print "\xE0_" ' | od -c
00 \ _
02
$ ./perl5.7.0 -e ' print "\xE0_" ' | od -h
00E0 6D
02
$
I am mystified.
Peter Prymmer
-
Finally the `nmake test` results were:
io/fs...ok 29/29FAILED test 16
Failed 1/29 tests, 96.55% okay (-12 skipped tests: 16 okay, 55.17%)
Failed Test Status Wstat Total Fail Failed List of failed
----
35 matches
Mail list logo
