Searched refs:Someother (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dlex.t168 package Someother; package
169 $^Q = 'Someother';
170 $ {^Quixote} = 'Someother 2';
171 $ {^M} = 'Someother 3';
173 print "not " unless $^Q eq 'Someother';
175 print "not " unless $ {^Quixote} eq 'Someother 2';
177 print "not " unless $ {^M} eq 'Someother 3';

Completed in 20 milliseconds