| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| H A D | redef.t | 6 $warn = "";
7 $SIG{__WARN__} = sub { $warn .= join("",@_) }
21 ok 1, $warn =~ s/Subroutine sub0 redefined[^\n]+\n//s;
26 ok 2, $warn =~ s/$NEWPROTO \Qsub main::sub1: none vs ()\E[^\n]+\n//s;
27 ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s;
32 ok 4, $warn =~ s/$NEWPROTO \Qsub main::sub2: none vs ($)\E[^\n]+\n//s;
33 ok 5, $warn =~ s/Subroutine sub2 redefined[^\n]+\n//s;
38 ok 6, $warn =~ s/$NEWPROTO \Qsub main::sub3 () vs none\E[^\n]+\n//s;
39 ok 7, $warn =~ s/Constant subroutine sub3 redefined[^\n]+\n//s;
44 ok 8, $warn =~ s/Constant subroutine sub4 redefined[^\n]+\n//s;
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | Manifest.t | 48 my $warn;
49 local $SIG{__WARN__} = sub { $warn .= $_[0] };
50 return join('', $_[0]->() ), $warn;
74 my ($res, $warn) = catch_warning( \&mkmanifest );
76 $warn = join("", map { "$_|" }
77 sort { lc($a) cmp lc($b) } split /\r?\n/, $warn);
78 is( $warn, "Added to MANIFEST: foo|Added to MANIFEST: MANIFEST|",
93 ($res, $warn) = catch_warning( \&filecheck );
95 like( $warn, qr/^Not in MANIFEST: bar/, 'warning that bar has been added' );
99 ($res, $warn) = do { local $ExtUtils::Manifest::Quiet = 1;
[all …]
|
| H A D | Liblist.t | 26 my @warn;
27 local $SIG{__WARN__} = sub {push @warn, [@_]};
33 ok( @warn, 'had warning');
35 …armless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | IO.t | 33 my $warn = '' ;
34 local $SIG{__WARN__} = sub { $warn = "@_" } ;
39 is( $warn, '', "... import default, should not warn");
40 $warn = '' ;
46 is( $warn, '', "... import default, should not warn");
47 $warn = '' ;
53 like( $warn, qr/^Parameterless "use IO" deprecated at/,
55 $warn = '' ;
61 like( $warn, qr/^Parameterless "use IO" deprecated at/,
63 $warn = '' ;
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| H A D | fail.t | 12 my $warn;
14 $SIG{__WARN__} = sub { $warn = shift };
22 $warn = ''; $! = 0;
26 like($warn,qr/in PerlIO layer/,"Got warning");
28 $warn = ''; $! = 0;
32 like($warn,qr/nonesuch/,"Got warning");
35 $warn = ''; $! = 0;
39 like($warn,qr/in PerlIO layer/,"Got warning");
41 $warn = ''; $! = 0;
45 like($warn,qr/nonesuch/,"Got warning");
|
| H A D | encoding.t | 78 $SIG{__WARN__} = sub {$warn .= $_[0]};
85 if (!defined $warn) {
87 } elsif ($warn =~ /^Cannot find encoding "NoneSuch" at/) {
90 print "not ok 10 # warning is '$warn'";
119 undef $warn;
128 if (!defined $warn) {
130 } elsif ($warn =~ /^Cannot find encoding "latin42" at.*line \d+\.$/) {
134 $warn =~ s/^/# /mg;
135 print "$warn";
|
| /onnv-gate/usr/src/cmd/rcap/common/ |
| H A D | rcapd_conf.c | 59 warn(gettext("SMF initialization problem: %s\n"), in rcfg_read()
66 warn(gettext("Configuration property '%s' " in rcfg_read()
82 warn(gettext("Configuration property '%s' " in rcfg_read()
93 warn(gettext("Configuration property '%s' " in rcfg_read()
104 warn(gettext("Configuration property '%s' " in rcfg_read()
115 warn(gettext("Configuration property '%s' " in rcfg_read()
135 warn(gettext("cannot create statistics file, " "%s"), in rcfg_read()
146 warn(gettext("Unexpected libscf error: %s. \n"), in rcfg_read()
174 warn(gettext("SMF initialization problem: %s\n"), in modify_config()
180 warn(gettext("SMF initialization problem: %s\n"), in modify_config()
[all …]
|
| /onnv-gate/usr/src/cmd/dumpadm/ |
| H A D | dconf.c | 129 warn(gettext("failed to open %s"), dpath); in dconf_open()
138 warn(gettext("failed to open %s"), fpath); in dconf_open()
147 warn(gettext("failed to open stream for %s"), fpath); in dconf_open()
181 warn(gettext("\"%s\", line %d: " in dconf_open()
194 warn(gettext("\"%s\", line %d: warning: " in dconf_open()
199 warn(gettext("\"%s\", line %d: syntax error\n"), in dconf_open()
220 warn(gettext("failed to get kernel dump settings")); in dconf_getdev()
226 warn(gettext("failed to get dump device")); in dconf_getdev()
251 warn(gettext("failed to seek config file")); in dconf_write()
256 warn(gettext("failed to truncate config file")); in dconf_write()
[all …]
|
| H A D | main.c | 82 warn(gettext("illegal argument -- %s\n"), argv[optind]); in main()
128 warn(gettext("-i and -r cannot be " in main()
147 warn(gettext("%s is missing or not a " in main()
193 warn(gettext("kernel settings updated, but " in main()
204 warn(gettext("failed to update settings: %s is " in main()
218 warn(gettext("failed to close configuration file")); in main()
|
| H A D | minfree.c | 68 warn(gettext("\"%s/minfree\": invalid minfree " in minfree_read()
107 warn(gettext("invalid minfree %% -- %s\n"), s); in minfree_compute()
112 warn(gettext("failed to statvfs %s"), dir); in minfree_compute()
135 warn(gettext("invalid minfree value -- %s\n"), s); in minfree_compute()
139 warn(gettext("expected m, k, or %% unit after " in minfree_compute()
|
| /onnv-gate/usr/src/cmd/psrset/ |
| H A D | psrset.c | 77 warn(char *format, ...) in warn() function
113 warn(gettext("cannot control process %d: %s\n"), in grab_proc()
149 warn(gettext("cannot %s pid %d"), msg, pid); in bind_err()
151 warn(gettext("cannot %s lwpid %d/%d"), msg, pid, lwpid); in bind_err()
309 warn(gettext("cannot remove processor %d"), cpu); in do_cpu()
312 warn(gettext("cannot query processor %d"), cpu); in do_cpu()
315 warn(gettext("cannot assign processor %d"), cpu); in do_cpu()
342 warn(gettext("no processors in range %d-%d\n"), first, last); in do_range()
359 warn(gettext("memory allocation failed")); in do_info()
363 warn(gettext("cannot get info for processor set %d"), pset); in do_info()
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/ |
| H A D | warn.t | 28 my @warn;
29 $SIG{__WARN__} = sub { push(@warn, @_) };
56 for (@warn) {
61 for (@warn) {
65 print "not " unless join("", @warn) eq <<"EOT"; print "ok 1\n";
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | flip.t | 49 my $warn='';
50 $SIG{__WARN__} = sub { $warn .= join '', @_ };
54 if ($warn =~ /uninitialized/) { print "ok 13\n" } else { print "not ok 13\n" }
55 $warn = '';
59 if ((() = ($warn =~ /isn't numeric/g)) == 2) {
|
| /onnv-gate/usr/src/cmd/avs/sv/ |
| H A D | svboot.c | 130 warn(spcs_s_info_t *status, caddr_t string, ...) in warn() function
208 warn(NULL, in main()
250 warn(NULL, gettext("-r , -s and -u are mutually exclusive")); in main()
256 warn(NULL, gettext("option required")); in main()
304 warn(NULL, gettext("unable to open %s: %s"), in resume_sv()
338 warn(NULL, gettext("unable to access %s: %s"), in resume_dev()
355 warn(&svc.svc_error, gettext("unable to resume %s"), in resume_dev()
406 warn(NULL, gettext("unable to access %s: %s"), in read_libcfg()
412 warn(NULL, gettext("%s is not a character device"), in read_libcfg()
420 warn(NULL, gettext( in read_libcfg()
[all …]
|
| H A D | svadm.c | 210 warn(spcs_s_info_t *status, caddr_t string, ...) in warn() function
394 warn(NULL, gettext("unable to open %s: %s"), in print_version()
448 warn(NULL, in main()
506 warn(NULL, gettext("-d, -e and -r are mutually exclusive")); in main()
512 warn(NULL, gettext("-f is only valid with -d, -e or -r")); in main()
678 warn(NULL, gettext("unable to access %s: %s"), in enable_dev()
684 warn(NULL, gettext("%s is not a character device - ignored"), in enable_dev()
695 warn(NULL, gettext("unable to open %s: %s"), in enable_dev()
707 warn(NULL, gettext("Unable to parse config file")); in enable_dev()
730 warn(NULL, gettext("unable to put %s into dsvol cfg"), in enable_dev()
[all …]
|
| /onnv-gate/usr/src/cmd/rctladm/ |
| H A D | rctladm.c | 122 warn(gettext("unable to obtain control block contents for %s"), in rctl_save_walk_cb()
181 warn(gettext("\"%s\", line %d, syntax error\n"), CONFIGPATH, in rctladm_setup_action()
232 warn(gettext("\"%s\", line %d, syntax error\n"), in rctladm_read_config()
238 warn(gettext("\"%s\", line %d, unknown resource" in rctladm_read_config()
243 warn(gettext("\"%s\", line %d, syntax error\n"), in rctladm_read_config()
275 warn(gettext("\"syslog\" action not valid for %s\n"), in rctladm_modify_action()
293 warn(gettext("unable to update control block contents")); in rctladm_modify_action()
416 warn(gettext("unknown resource control: %s\n"), in rctl_walk_cb()
419 warn(gettext("unable to obtain %s properties"), in rctl_walk_cb()
483 warn(gettext("-l, -d, and -e flags are exclusive\n")); in main()
[all …]
|
| /onnv-gate/usr/src/cmd/pools/poolbind/ |
| H A D | poolbind.c | 97 warn(gettext("getting '%s' binding for %d: %s\n"), type, in print_resource_binding()
191 warn(gettext("binding to pool '%s': %s\n"), pool_name, in exec_cmd()
230 warn(gettext("invalid zone '%s'\n"), in process_ids()
237 warn(gettext("zone '%s' is not " in process_ids()
244 warn(gettext("failed to get project " in process_ids()
250 warn(gettext("invalid %s '%s'\n"), in process_ids()
260 warn(gettext("binding %s %ld to pool '%s': " in process_ids()
270 warn(gettext("couldn't determine binding for " in process_ids()
285 warn(gettext("couldn't allocate query memory " in process_ids()
|
| /onnv-gate/usr/src/tools/scripts/ |
| H A D | xref.sh | 61 warn() function
187 warn "ignoring unknown cross-reference \"$xref\""
200 warn "directory \"$dir\" does not exist; skipping"
212 warn "directory \"$pwd\" is not beneath \$CODEMGR_WS; skipping"
233 warn "$reldir: unable to find flg-related source files"
252 warn "$reldir: cannot clobber $xref cross-reference"
264 warn "$reldir: cannot clean up temporary files"
|
| /onnv-gate/usr/src/cmd/prctl/ |
| H A D | prctl.c | 248 warn(gettext("unknown idtype %s"), optarg); in main()
288 warn(gettext("unknown privilege %s"), optarg); in main()
310 warn(gettext("invalid pid %s"), optarg); in main()
319 warn(gettext("unknown option")); in main()
328 warn(gettext("no arguments specified")); in main()
340 warn(gettext("-n is required with -s, -r, -x, -e, or -d")); in main()
347 warn(gettext("options -d and -e are exclusive")); in main()
355 warn(gettext("options -s, -r, and -x are exclusive")); in main()
362 warn(gettext("options -e or -d not allowed with -x")); in main()
368 warn(gettext("option -r requires use of option -v")); in main()
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | TEST | 388 warn "$0: Failed to open '$valgrind_log': $!\n";
411 warn "$0: Failed to create '$test.valgrind': $!\n";
415 warn "No valgrind output?\n";
419 or warn "$0: Failed to unlink '$valgrind_log': $!\n";
472 warn "Failed 1 test script out of $files, $pct% okay.\n";
475 warn "Failed $bad test scripts out of $files, $pct% okay.\n";
477 warn <<'SHRDLU_1';
482 warn <<'SHRDLU_2' if $good / $total > 0.8;
489 warn <<SHRDLU_3;
494 warn <<SHRDLU_4a;
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Term/ |
| H A D | Cap.t | 93 my $warn;
95 $warn = $_[0];
103 like( $warn, qr/OSPEED was not set/, 'Tgetent() should set default OSPEED' );
107 $warn = 'xxxx';
109 is($warn,'xxxx',"Tgetent() doesn't carp() without warnings on");
113 $warn = '';
115 is( $warn, '', 'Tgetent() should not work if OSPEED is provided' );
|
| /onnv-gate/usr/src/cmd/mdb/intel/kmdb/ |
| H A D | kaif.c | 315 warn("I/O port watchpoints must be read/write\n"); in kaif_wapt_validate()
320 warn("I/O watchpoint size must be 1, 2, or 4 bytes\n"); in kaif_wapt_validate()
325 warn("physical address watchpoints are not supported on this " in kaif_wapt_validate()
332 warn("watchpoints must be read/write or write-only\n"); in kaif_wapt_validate()
338 warn("data watchpoint size must be " WAPT_DATA_SIZES_MSG in kaif_wapt_validate()
346 warn("%lu-byte watchpoints must be %lu-byte aligned\n", in kaif_wapt_validate()
450 warn("failed to decode instruction at %a for step\n", pc); in kaif_step()
463 warn("failed to read at %p for step", in kaif_step()
471 warn("iret cannot be stepped\n"); in kaif_step()
477 warn("int cannot be stepped\n"); in kaif_step()
[all …]
|
| H A D | kvm_isadep.c | 148 warn("failed to retrieve registers for cpu %d", cpuid); in kmt_stack_common()
211 warn("port address must be 0-%#x\n", IOPORTLIMIT); in kmt_io_check()
217 warn("port access must be 1, 2, or 4 bytes\n"); in kmt_io_check()
223 warn("address for %llu-byte access must be %llu-byte " in kmt_io_check()
252 warn("failed to read from port 0x%llx", (u_longlong_t)addr); in kmt_in_dcmd()
292 warn("value is out of range for port size\n"); in kmt_out_dcmd()
297 warn("failed to write to port %llx", (u_longlong_t)addr); in kmt_out_dcmd()
331 warn("rdmsr failed"); in kmt_rdmsr()
352 warn("wrmsr failed"); in kmt_wrmsr()
441 warn("invalid bus number (must be 0-0xffff)\n"); in kmt_pcicfg_common()
[all …]
|
| /onnv-gate/usr/src/cmd/prtvtoc/ |
| H A D | prtvtoc.c | 89 static int warn(char *, char *);
161 (void) warn("putfree()", "Too many partitions on disk!"); in findfree()
252 (void) warn(mnttab, strerror(errno)); in getmntpt()
289 (void) warn(fstab, strerror(errno)); in getmntpt()
378 return (warn(devname, in prtvtoc()
383 return (warn(name, strerror(errno))); in prtvtoc()
385 return (warn(name, strerror(errno))); in prtvtoc()
387 return (warn(name, "Not a raw device")); in prtvtoc()
597 return (warn(name, err_string)); in readgeom()
617 return (warn(name, "Unable to read VTOC")); in readvtoc()
[all …]
|
| /onnv-gate/usr/src/cmd/pbind/ |
| H A D | pbind.c | 67 warn(char *format, ...) in warn() function
141 warn(gettext("cannot %s pid %d: %s\n"), msg, in bind_err()
144 warn(gettext("cannot %s lwpid %d/%d: %s\n"), msg, in bind_err()
189 warn(gettext("cannot control process %d: %s\n"), in grab_proc()
200 warn(gettext("cannot control process %d\n"), (int)pid); in grab_proc()
301 warn(gettext("cannot %s lwpid %d/%s: " in do_lwps()
420 warn(gettext("options -b, -q, -Q, -u and -U " in main()
434 warn(gettext("must specify at least one pid\n")); in main()
459 warn(gettext("invalid processor ID\n")); in main()
470 warn(gettext("failed to unbind from " in main()
[all …]
|