Tests for Embperl - Set Session Data fdat:
udat:
a1
^ ok \(num=\d+\)

^ \$mdat\{cnt\} = -\d-
$udat{cnt} = --
sessions: ^ ^- ^- ^- ^- ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- <\/table> continue continue continue
fdat:
udat:
a1
^ ok \(num=(1|6)\)

^ \$mdat\{cnt\} = -\d-
$udat{cnt} = --
Tests for Embperl - Set Session Data fdat:
udat:
a1
^ ok \(num=(1|6)\)

^ \$mdat\{cnt\} = -\d-
$udat{cnt} = --
sessions: ^ ^- ^- ^- ^- ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- ^-
.*?<\/td>HASH.*?<\/td> ^- <\/tr> ^- <\/table> continue continue continue