In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/314655b3bf3a78f53857298857fbdc053e783117?hp=74e8ce349633219f5a1aba2c2aaa959675e24299>
- Log ----------------------------------------------------------------- commit 314655b3bf3a78f53857298857fbdc053e783117 Author: Craig A. Berry <[email protected]> Date: Sat Oct 9 18:32:41 2010 -0500 Make the new perl5db.t taint test work on VMS. Follow-up to 07004ebbe530fe5ce1c67e63c0b8e1c0aa77b3b9. M lib/perl5db.t commit e8b231c6829a16740f05a666243bfc33e1ac1514 Author: Craig A. Berry <[email protected]> Date: Sat Oct 9 17:41:27 2010 -0500 Add VMS symbol shortening to PL_bincompat_options. M perl.h ----------------------------------------------------------------------- Summary of changes: lib/perl5db.t | 1 + perl.h | 3 +++ 2 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lib/perl5db.t b/lib/perl5db.t index b2f7266..4419136 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -173,6 +173,7 @@ SKIP: { local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1"; my $output = runperl(switches => [ '-d', '-T' ], stderr => 1, progfile => '../lib/perl5db/t/taint'); + chomp $output if $^O eq 'VMS'; # newline guaranteed at EOF is($output, '[$^X][done]', "taint"); } diff --git a/perl.h b/perl.h index 37f6272..4cfb29c 100644 --- a/perl.h +++ b/perl.h @@ -4710,6 +4710,9 @@ EXTCONST char PL_bincompat_options[] = # ifdef VMS_WE_ARE_CASE_SENSITIVE " VMS_SYMBOL_CASE_AS_IS" # endif +# ifdef VMS_SHORTEN_LONG_SYMBOLS + " VMS_SHORTEN_LONG_SYMBOLS" +# endif ""; #else EXTCONST char PL_bincompat_options[]; -- Perl5 Master Repository
