Searched refs:_qq (Results 1 - 6 of 6) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | test.pl | 99 sub _qq { subroutine
304 print STDOUT "# key ", _qq($key), " was ", _qq($orig->{$key}),
305 " now ", _qq($value), "\n";
309 print STDOUT "# key ", _qq($key), " is ", _qq($value),
318 print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | ref.t | 315 print "# expected ", _qq ($expect), ", got ", _qq ($result), "\n";
|
| H A D | pack.t | 19 my @result = map {_qq($_)} @_;
374 print "# ${un}pack ('$template', "._qq($in).') gave '._qq($out).
375 ' not '._qq($got)."\n";
759 _qq($in), encode_list (@got), encode_list (@out);
766 _qq($in), encode_list ($got), encode_list ($out[0]);
|
| H A D | each.t | 142 ok (length() == 1, "Check length of " . _qq $_);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
| H A D | posix.t | 217 or print "\$\@ is " . _qq($@) . "\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | utf8.t | 200 print "# \$\@=", _qq($@), "\n";
|
Completed in 27 milliseconds