develooper Front page | perl.perl5.porters | Postings from October 2007

[-.ext.B.t]optree_misc.t failure on VMS in blead@32181

Thread Next
From:
John E. Malmberg
Date:
October 24, 2007 21:50
Subject:
[-.ext.B.t]optree_misc.t failure on VMS in blead@32181
Message ID:
47202071.30007@qsl.net
As I mentioned in an earlier e-mail, optree_misc.t is failing on VMS 
with recent bleads.

The one clue that I have is the Unquoted String error message, which 
implies that a copy of Perl is spawned.

On the native VMS DCL shell, single quotes C<'> are used for symbol 
substitution.  Double quotes must be used for quoting strings.  Single 
quotes may be embedded in a string enclosed in double quotes, but not 
the reverse.

I have not yet found where the command generating the error is put together.

EAGLE> mcr [-]ndbgperl.exe  [-.ext.B.T]optree_misc.t 

1..2
ok 1 - OP_AELEMFAST opclass
# index and PVBM
# got unexpected:
# Unquoted string "foo" may clash with future reserved word at -e line 1.
not ok 2 - index and PVBM
# Failed at [-.ext.b.t]optree_misc.t line 102
#      got '8  <@> leave[1 ref] vKP/REFC ->(end)
# 1     <0> enter ->2
# 2     <;> nextstate(main 1 -e:1) v:{ ->3
# 7     <2> sassign vKS/2 ->8
# 5        <@> index[t1] sK/2 ->6
# -           <0> ex-pushmark s ->3
# 3           <$> const(PV "foo") s/BARE ->4
# 4           <$> const(GV "foo") s/BARE ->5
# -        <1> ex-rv2sv sKRM*/1 ->7
# 6           <$> gvsv(*_) s ->7
# '
# expected /(?ms-xi:^8  <\@> leave\[\d+ refs?\] vKP/REFC ->\(end\)
# 1     <0> enter ->2
# 2     <;> (?:next|db)state\([^()]*?\) v:{ ->3
# 7     <2> sassign vKS/2 ->8
# 5        <\@> index\[t\d+\] sK/2 ->6
# -           <0> ex-pushmark s ->3
# 3           <\$> const\(PV ".*?"\) s ->4
# 4           <\$> const\(GV ".*?"\) s ->5
# -        <1> ex-rv2sv sKRM\*/1 ->7
# 6           <\$> gvsv\(\*_\) s ->7
# $)/
# got:          '3           <$> const(PV "foo") s/BARE ->4'
# want:  (?-xism:3           <\$> const\(PV ".*?"\) s ->4)
# got:          '4           <$> const(GV "foo") s/BARE ->5'
# want:  (?-xism:4           <\$> const\(GV ".*?"\) s ->5)
# remainder:
# 3           <$> const(PV "foo") s/BARE ->4
# 4           <$> const(GV "foo") s/BARE ->5
# these lines not matched:
# 3           <$> const(PV "foo") s/BARE ->4
# 4           <$> const(GV "foo") s/BARE ->5

Regards,
-John
wb8tyw@qsl.net
Personal Opinion Only

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About