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

optree_specials

Thread Next
From:
mohammad yaseen
Date:
October 5, 2005 03:17
Subject:
optree_specials
Message ID:
20051005100131.6574.qmail@web40524.mail.yahoo.com
Hi Nicholas,

I'm running the ext/B/t/optree_specials.t test on
EBCDIC platform z/os

The output is this

1..6
ok 1 - require B::Concise
# Failed at ./test.pl line 249
#      got 'BEGIN 1:
# b  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->b
# 1        <;> nextstate(B::Concise -249
Concise.pm:306) v/2 ->2
# 3        <1> require sK/1 ->4
# 2           <$> const(PV "strict.pm") s/BARE ->3
# 4        <;> nextstate(B::Concise -249
Concise.pm:306) v/2 ->5
# -        <@> lineseq K ->-
# 5           <;> nextstate(B::Concise -249
Concise.pm:306) /2 ->6
# a           <1> entersub[t1] KS*/TARG,2 ->b
# 6              <0> pushmark s ->7
# 7              <$> const(PV "strict") sM ->8
# 8              <$> const(PV "refs") sM ->9
# 9              <$> method_named(PVIV -1585856300)
->a
# BEGIN 2:
# m  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->m
# c        <;> nextstate(B::Concise -234
Concise.pm:329) v/2 ->d
# e        <1> require sK/1 ->f
# d           <$> const(PV "warnings.pm") s/BARE ->e
# f        <;> nextstate(B::Concise -234
Concise.pm:329) v/2 ->g
# -        <@> lineseq K ->-
# g           <;> nextstate(B::Concise -234
Concise.pm:329) /2 ->h
# l           <1> entersub[t1] KS*/TARG,2 ->m
# h              <0> pushmark s ->i
# i              <$> const(PV "warnings") sM ->j
# j              <$> const(PV "qw") sM ->k
# k              <$> method_named(PVIV -1585856300)
->l
# BEGIN 3:
# q  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq KP ->q
# n        <;> nextstate(main 2 -e:1) v ->o
# p        <1> postinc[t2] sK/1 ->q
# -           <1> ex-rv2sv sKRM/1 ->p
# o              <$> gvsv(*beg) s ->p
# '
# expected /(?ms-xi:^BEGIN 1:
# b  <1> leavesub\[\d refs?\] K/REFC,1 ->\(end\)
# -     <\@> lineseq KP ->b
# 1        <;> (?:next|db)state(.*?) v/2 ->2
# 3        <1> require sK/1 ->4
# 2           <\$> const\(PV ".*?"\) s/BARE ->3
# 4        <;> (?:next|db)state(.*?) v/2 ->5
# -        <\@> lineseq K ->-
# 5           <;> (?:next|db)state(.*?) /2 ->6
# a           <1> entersub\[t1\] KS\*/TARG,2 ->b
# 6              <0> pushmark s ->7
# 7              <\$> const\(PV ".*?"\) sM ->8
# 8              <\$> const\(PV ".*?"\) sM ->9
# 9              <\$> method_named\(PVIV 1520340202\)
->a
# BEGIN 2:
# m  <1> leavesub\[\d refs?\] K/REFC,1 ->\(end\)
# -     <\@> lineseq KP ->m
# c        <;> (?:next|db)state(.*?) v/2 ->d
# e        <1> require sK/1 ->f
# d           <\$> const\(PV ".*?"\) s/BARE ->e
# f        <;> (?:next|db)state(.*?) v/2 ->g
# -        <\@> lineseq K ->-
# g           <;> (?:next|db)state(.*?) /2 ->h
# l           <1> entersub\[t1\] KS\*/TARG,2 ->m
# h              <0> pushmark s ->i
# i              <\$> const\(PV ".*?"\) sM ->j
# j              <\$> const\(PV ".*?"\) sM ->k
# k              <\$> method_named\(PVIV 1520340202\)
->l
# BEGIN 3:
# q  <1> leavesub\[\d refs?\] K/REFC,1 ->\(end\)
 -     <\@> lineseq KP ->q
# n        <;> (?:next|db)state(.*?) v ->o
# p        <1> postinc\[t2\] sK/1 ->q
# -           <1> ex-rv2sv sKRM/1 ->p
# o              <\$> gvsv\(\*beg\) s ->p
# $)/
not ok 2 -  BEGIN
these lines not matched:
9              <$> method_named(PVIV -1585856300) ->a
k              <$> method_named(PVIV -1585856300) ->l

ok 3 -  END
ok 4 -  CHECK
ok 5 -  INIT
# Failed at ./test.pl line 249
#      got 'BEGIN 1:
# 1  <;> nextstate(B::Concise -249 Concise.pm:306) v/2
# 2  <$> const(PV "strict.pm") s/BARE
# 3  <1> require sK/1
# 4  <;> nextstate(B::Concise -249 Concise.pm:306) v/2
# 5  <;> nextstate(B::Concise -249 Concise.pm:306) /2
# 6  <0> pushmark s
# 7  <$> const(PV "strict") sM
# 8  <$> const(PV "refs") sM
# 9  <$> method_named(PVIV -1585856300)
# a  <1> entersub[t1] KS*/TARG,2
# b  <1> leavesub[1 ref] K/REFC,1
# BEGIN 2:
# c  <;> nextstate(B::Concise -234 Concise.pm:329) v/2
# d  <$> const(PV "warnings.pm") s/BARE
# e  <1> require sK/1
# f  <;> nextstate(B::Concise -234 Concise.pm:329) v/2
# g  <;> nextstate(B::Concise -234 Concise.pm:329) /2
# h  <0> pushmark s
# i  <$> const(PV "warnings") sM
# j  <$> const(PV "qw") sM
# k  <$> method_named(PVIV -1585856300)
# l  <1> entersub[t1] KS*/TARG,2
# m  <1> leavesub[1 ref] K/REFC,1
# BEGIN 3:
# n  <;> nextstate(main 2 -e:1) v
# o  <$> gvsv(*beg) s
# p  <1> postinc[t2] sK/1
# q  <1> leavesub[1 ref] K/REFC,1
# END 1:
# r  <;> nextstate(main 5 -e:1) v
# s  <$> gvsv(*end) s
# t  <1> postinc[t2] sK/1
# u  <1> leavesub[1 ref] K/REFC,1
# INIT 1:
# v  <;> nextstate(main 4 -e:1) v
# w  <$> gvsv(*init) s
# x  <1> postinc[t2] sK/1
# y  <1> leavesub[1 ref] K/REFC,1
# CHECK 1:
# z  <;> nextstate(main 3 -e:1) v
# 10 <$> gvsv(*chk) s
# 11 <1> postinc[t2] sK/1
# 12 <1> leavesub[1 ref] K/REFC,1
# '
# expected /(?ms-xi:^BEGIN 1:
# 1  <;> (?:next|db)state(.*?) v/2
# 2  <\$> const\(PV ".*?"\) s/BARE
# 3  <1> require sK/1
# 4  <;> (?:next|db)state(.*?) v/2
# 5  <;> (?:next|db)state(.*?) /2
# 6  <0> pushmark s
# 7  <\$> const\(PV ".*?"\) sM
# 8  <\$> const\(PV ".*?"\) sM
 9  <\$> method_named\(PVIV 1520340202\)
# a  <1> entersub\[t1\] KS\*/TARG,2
# b  <1> leavesub\[\d refs?\] K/REFC,1
# BEGIN 2:
# c  <;> (?:next|db)state(.*?) v/2
# d  <\$> const\(PV ".*?"\) s/BARE
# e  <1> require sK/1
# f  <;> (?:next|db)state(.*?) v/2
# g  <;> (?:next|db)state(.*?) /2
# h  <0> pushmark s
# i  <\$> const\(PV ".*?"\) sM
# j  <\$> const\(PV ".*?"\) sM
# k  <\$> method_named\(PVIV 1520340202\)
# l  <1> entersub\[t1\] KS\*/TARG,2
# m  <1> leavesub\[\d refs?\] K/REFC,1
# BEGIN 3:
# n  <;> (?:next|db)state(.*?) v
# o  <\$> gvsv\(\*beg\) s
# p  <1> postinc\[t2\] sK/1
# q  <1> leavesub\[\d refs?\] K/REFC,1
# END 1:
# r  <;> (?:next|db)state(.*?) v
# s  <\$> gvsv\(\*end\) s
# t  <1> postinc\[t2\] sK/1
# u  <1> leavesub\[\d refs?\] K/REFC,1
# INIT 1:
# v  <;> (?:next|db)state(.*?) v
# w  <\$> gvsv\(\*init\) s
# x  <1> postinc\[t2\] sK/1
# y  <1> leavesub\[\d refs?\] K/REFC,1
# CHECK 1:
# z  <;> (?:next|db)state(.*?) v
# 10 <\$> gvsv\(\*chk\) s
# 11 <1> postinc\[t2\] sK/1
# 12 <1> leavesub\[\d refs?\] K/REFC,1
# $)/
not ok 6 -  all of BEGIN END INIT CHECK -exec
these lines not matched:
9  <$> method_named(PVIV -1585856300)
k  <$> method_named(PVIV -1585856300)

On EBCDIC this number is PVIV -1585856300, but whereas
the expected is PVIV 1520340202. Is this number what
i'm getting on EBCDIC is correct. What does it actual
meaning of this number and its significance.


		
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com

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