Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.6.1
/
distrib
/
t
/
op
/
pos.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
pos.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print
"1..4\n"
;
$x=
'banana'
;
$x=~/.a/g;
if
(
pos
($x)
==
2
)
{
print
"ok 1\n"
}
else
{
print
"not ok 1\n"
;}
$x=~/.
z
/
gc
;
if
(
pos
($x)
==
2
)
{
print
"ok 2\n"
}
else
{
print
"not ok 2\n"
;}
sub
f
{
my
$p=$_[
0
];
return
$p }
$x=~/.a/g;
if
(f
(
pos
($x)
)
==
4
)
{
print
"ok 3\n"
}
else
{
print
"not ok 3\n"
;}
# Is pos() set inside //g? (bug id 19990615.008)
$x =
"test string?"
; $x =~ s/\
w
/
pos
($x)
/
eg
;
print
"not "
unless
$x
eq
"0123 5678910?"
;
print
"ok 4\n"
;