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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafe1.t28 my $cpt;
30 $cpt = new Safe or die;
31 $cpt = new Safe or die;
32 $cpt = new Safe or die;
34 $cpt = new Safe "Root" or die;
39 $cpt->share(qw($foo));
41 print ${$cpt->varglob('foo')} == 42 ? "ok $t\n" : "not ok $t\n"; $t++;
43 ${$cpt->varglob('foo')} = 9;
47 print $cpt->reval('$foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;
49 print $cpt
[all...]
H A Dsafe2.t31 my $cpt;
33 $cpt = new Safe or die;
34 $cpt = new Safe or die;
36 $cpt = new Safe "Root";
38 $cpt->permit(qw(:base_io));
40 $cpt->reval(q{ system("echo not ok 1"); });
48 $cpt->reval(q{
65 $cpt->share(qw($foo %bar @baz *glob sayok));
66 $cpt->share('$"') unless $Config{use5005threads};
68 $cpt
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/
H A DSafe.pm518 $cpt = new Safe;
522 $cpt->share('&wrapper');
543 $cpt = new Safe;
627 ${$cpt->varglob('foo')} = "Hello world";
631 $cpt = new Safe 'Root';
634 but avoids the need to know $cpt's package name.
/osnet-11/usr/src/lib/libzfs/common/
H A Dlibzfs_mount.c346 char *cpt, *parentname; local
351 cpt = strrchr(parentname, '/');
352 *cpt = '\0';
H A Dlibzfs_share.c4427 char *cpt, *parentname; local
4437 cpt = strrchr(parentname, '/');
4438 if (cpt == NULL)
4440 *cpt = '\0';

Completed in 36 milliseconds