HomeSort by relevance Sort by last modified time
    Searched refs:SIG (Results 1 - 25 of 168) sorted by null

1 2 3 4 5 6 7

  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/
shbang_misparse 10 $SIG{__WARN__} = sub { $warning .= $_[0] };
taint_warn 8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
sigtrap.t 16 local %SIG;
30 is( $SIG{AFAKE}, \&sigtrap::handler_traceback, 'install normal handler' );
33 is( $SIG{AFAKE}, \&sigtrap::handler_die, 'install the die handler' );
34 is( $SIG{FAKE2}, \&sigtrap::handler_traceback, 'install traceback handler' );
37 @SIG{@normal} = 1 x @normal;
39 is( (grep { ref $_ } @SIG{@normal}), @normal, 'check normal-signals set' );
42 @SIG{@error} = 1 x @error;
44 is( (grep { ref $_ } @SIG{@error}), @error, 'check error-signals set' );
47 @SIG{@old} = 1 x @old;
49 is( (grep { ref $_ } @SIG{@old}), @old, 'check old-interface-signals set' )
    [all...]
autouse.t 39 local $SIG{__WARN__} = sub { push @warning, @_ };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/
rename.t 8 local $SIG{__WARN__} = sub { }; # muffle warnings from carp
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
die.t 5 $SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ;
50 local $SIG{__DIE__};
55 local $SIG{__WARN__} = $SIG{__DIE__} = sub { $err = shift };
alarm.t 21 local $SIG{ALRM} = sub { die "ALARM!\n" };
31 is( $@, "ALARM!\n", 'alarm w/$SIG{ALRM} vs inf loop' );
37 local $SIG{ALRM} = sub { die "ALARM!\n" };
45 is( $@, "ALARM!\n", 'alarm w/$SIG{ALRM} vs system()' );
sprintf2.t 42 local $SIG{__WARN__} = sub {
60 local $SIG{__WARN__} = sub {
flip.t 50 $SIG{__WARN__} = sub { $warn .= join '', @_ };
magic.t 7 $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
85 $SIG{"INT"} = "ok3"; kill "INT",$$; sleep 1;
86 $SIG{"INT"} = "IGNORE"; kill "INT",$$; sleep 1; print "ok 4\n";
87 $SIG{"INT"} = "DEFAULT"; kill "INT",$$; sleep 1; print "not ok 4\n";
115 $SIG{"INT"} = "ok5";
117 local $SIG{"INT"}=x();
121 delete $SIG{"INT"};
331 local $SIG{'__WARN__'} = sub { $ok = 0; $warn = join '', @_; };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Hostname/
Hostname.pm 20 local $SIG{__DIE__};
42 eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
80 local $SIG{__DIE__};
89 local $SIG{__DIE__};
98 local $SIG{__DIE__};
99 local $SIG{CHLD};
106 local $SIG{__DIE__};
113 local $SIG{__DIE__};
119 local $SIG{__DIE__};
  /onnv/onnv-gate/usr/src/cmd/lp/cmd/lpadmin/
signals.c 50 catch (sig)
69 #define SETSIG(SIG) \
70 if (signal(SIG, SIG_IGN) != SIG_IGN) \
71 signal (SIG, catch);
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
sigaction.t 43 local($SIG{__WARN__})=sub { $bad=1; };
51 print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";
73 print $SIG{HUP} eq 'IGNORE' ? "ok 8\n" : "not ok 8\n";
75 print $SIG{HUP} eq 'DEFAULT' ? "ok 9\n" : "not ok 9\n";
85 print ref($SIG{HUP}) eq 'CODE' ? "ok 11\n" : "not ok 11\n";
103 $SIG{HUP}=sub {};
137 local $SIG{__WARN__} = sub { }; # Just suffer silently.
162 # standard signal handling via %SIG is safe
163 $SIG{HUP} = \&foo;
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/
prototype.t 14 $SIG{__WARN__} = \&handle_warnings;
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/
pipe.t 90 $SIG{'PIPE'} = 'broken_pipe';
93 $SIG{'PIPE'} = 'IGNORE'; # loop preventer
120 local $SIG{PIPE} = 'IGNORE';
153 $SIG{ALRM} = sub { return };
191 local $SIG{ALRM} = sub { die; };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
use_ok.t 34 my $warn; local $SIG{__WARN__} = sub { $warn .= shift; };
skip.t 57 local $SIG{__WARN__} = sub { $warning = join "", @_ };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
Liblist.t 27 local $SIG{__WARN__} = sub {push @warn, [@_]};
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/
CheckTree.t 32 local $SIG{__WARN__} = sub { push @warnings, "@_" };
60 local $SIG{__WARN__} = sub { push @warnings, "@_" };
89 local $SIG{__WARN__} = sub { push @warnings, "@_" };
122 local $SIG{__WARN__} = sub { push @warnings, "@_" };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/I18N/
Collate.t 25 local $SIG{__WARN__} = sub { $@ = $_[0] };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/
warn.t 29 $SIG{__WARN__} = sub { push(@warn, @_) };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/IPC/
Open2.t 15 $SIG{__WARN__} = sub { die @_ };
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
text-errors.t 42 $SIG{__WARN__} = sub { $warnings .= $_[0] };
  /onnv/onnv-gate/usr/src/cmd/print/selector/
desktop-print-management-applet 64 $SIG{USR1} = \&handle_signal;
  /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
fail.t 14 $SIG{__WARN__} = sub { $warn = shift };

Completed in 360 milliseconds

1 2 3 4 5 6 7