view release on metacpan or search on metacpan
.gdb/dashboard view on Meta::CPAN
23242526272829303132333435363738394041424344
},
# prompt
'prompt'
: {
'doc'
:
""
"Command prompt.
This value is parsed as a Python
format
string in which `{status}` is expanded
with
the substitution of either `prompt_running` or `prompt_not_running`
attributes, according to the target program status. The resulting string must be
a valid GDB prompt, see the command `python
(gdb.prompt.prompt_help())`
""
",
'default'
:
'{status}'
},
'prompt_running'
: {
'doc'
:
""
"`{status}`
when
the target program is running.
See the `prompt` attribute. This value is parsed as a Python
format
string in
which `{pid}` is expanded
with
the process identifier of the target program.
""
",
'default'
:
'\[\e[1;35m\]>>>\[\e[0m\]'
},
'prompt_not_running'
: {
'doc'
:
'`{status}` when the target program is not running.'
,
'default'
:
'\[\e[1;30m\]>>>\[\e[0m\]'
},
# divider
'divider_fill_char_primary'
: {
.gdb/dashboard view on Meta::CPAN
view all matches for this distribution
261262263264265266267268269270271
# render thread status indicator
if
dashboard.is_running():
pid = dashboard.inferior_pid()
status = R.prompt_running.
format
(pid=pid)
else
:
status = R.prompt_not_running
# build prompt
prompt = R.prompt.
format
(status=status)
prompt = gdb.prompt.substitute_prompt(prompt)
return
prompt +
' '
# force trailing space
gdb.prompt_hook = custom_prompt
view release on metacpan or search on metacpan
t/10-core.t view on Meta::CPAN
159160161162163164165166167168169# testit return => '(return);', '(return);';
# testit return => '(CORE::return);', '(return);';
# these are the keywords I couldn't think how to test within this framework
my
%not_tested
=
map
{
$_
=> 1} qw(
__DATA__
__END__
__FILE__
__LINE__
__PACKAGE__
t/10-core.t view on Meta::CPAN
view all matches for this distribution
221222223224225226227228229230231while
(<
$fh
>) {
next
unless
/^([+\-])(\w+)$/;
my
(
$strength
,
$key
) = ($1, $2);
$strength
= (
$strength
eq
'+'
) ? 1 : 0;
$count
++;
if
(!
$SEEN
{
$key
} && !
$not_tested
{
$key
}) {
diag(
"keyword '$key' seen in $file, but not tested here!!"
);
$pass
= 0;
}
if
(
exists
$SEEN_STRENGTH
{
$key
} and
$SEEN_STRENGTH
{
$key
} !=
$strength
) {
diag(
"keyword '$key' strengh as seen in $file doen't match here!!"
);
view release on metacpan or search on metacpan
inc/Module/Install/XSUtil.pm view on Meta::CPAN
505506507508509510511512513514515516517518519520521522
$h_files
= +{
map
{
$_
=>
undef
}
@_
};
}
$self
->_xs_initialize();
my
@not_found
;
my
$h_map
=
$self
->{xsu_header_map} || {};
while
(
my
(
$ident
,
$path
) =
each
%{
$h_files
}){
$path
||=
$h_map
->{
$ident
} || File::Spec->
join
(
'.'
,
$ident
);
$path
= File::Spec->canonpath(
$path
);
unless
(
$path
&& -e
$path
){
push
@not_found
,
$ident
;
next
;
}
$ToInstall
{
$path
} = File::Spec->
join
(
'$(INST_ARCHAUTODIR)'
,
$ident
);
inc/Module/Install/XSUtil.pm view on Meta::CPAN
view all matches for this distribution
526527528529530531532533534535536
if
(
@funcs
){
$self
->cc_append_to_funclist(
@funcs
);
}
}
if
(
@not_found
){
die
"Header file(s) not found: @not_found\n"
;
}
return
;
}
view release on metacpan or search on metacpan
965966967968969970971972973974975976977__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu
5709571057115712571357145715571657175718571957205721572257235724572557265727572857295730noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu
1055810559105601056110562105631056410565105661056710568WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
view all matches for this distribution
1157611577115781157911580115811158211583115841158511586# include <patchlevel.h>
# endif
# if ! defined(PERL_VERSION) \
&& !
defined
(PERL_VERSION_MAJOR) \
&& ( !
defined
(SUBVERSION) || !
defined
(PATCHLEVEL) )
# include <could_not_find_Perl_patchlevel.h>
# endif
#endif
#ifdef PERL_VERSION_MAJOR
# define D_PPP_MAJOR PERL_VERSION_MAJOR
view release on metacpan or search on metacpan
18251826182718281829183018311832183318341835nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31783179318031813182318331843185318631873188# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
208820892090209120922093209420952096209720982099ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
notify_parser_that_changed_to_utf8|||
nuke_stacks|||
num_overflow|||n
oopsAV|||
27992800280128022803280428052806280728082809watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
win32_setlocale|||
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
view all matches for this distribution
35683569357035713572357335743575357635773578# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
18131814181518161817181818191820182118221823nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31653166316731683169317031713172317331743175# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
216521662167216821692170217121722173217421752176ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
28922893289428952896289728982899290029012902watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
36593660366136623663366436653666366736683669# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
216521662167216821692170217121722173217421752176ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
28922893289428952896289728982899290029012902watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
36593660366136623663366436653666366736683669# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
196819691970197119721973197419751976197719781979ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
26482649265026512652265326542655265626572658watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
34153416341734183419342034213422342334243425# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
18251826182718281829183018311832183318341835nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31783179318031813182318331843185318631873188# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
216521662167216821692170217121722173217421752176ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
28922893289428952896289728982899290029012902watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
36593660366136623663366436653666366736683669# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
view all matches for this distribution
131415161718192021t/00_compile.t
t/01_simple.t
t/02_entersub.t
t/03_padsv.t
t/05_regexp.t
t/06_not_defined.t
t/CallTrace/01_simple.t
META.yml
MANIFEST
view release on metacpan or search on metacpan
18251826182718281829183018311832183318341835nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31783179318031813182318331843185318631873188# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
211621172118211921202121212221232124212521262127ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
28382839284028412842284328442845284628472848watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
36053606360736083609361036113612361336143615# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
18251826182718281829183018311832183318341835nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31783179318031813182318331843185318631873188# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
t/boilerplate.t view on Meta::CPAN
view all matches for this distribution
27282930313233343536373839404142434445464748495051
}
}
sub
module_boilerplate_ok {
my
(
$module
) =
@_
;
not_in_file_ok(
$module
=>
'the great new $MODULENAME'
=>
qr/ - The great new /
,
'boilerplate description'
=>
qr/Quick summary of what the module/
,
'stub function definition'
=>
qr/function[12]/
,
);
}
TODO: {
local
$TODO
=
"Need to replace the boilerplate text"
;
not_in_file_ok(
README
=>
"The README is used..."
=>
qr/The README is used/
,
"'version information here'"
=>
qr/to provide version information/
,
);
not_in_file_ok(
Changes
=>
"placeholder date/time"
=>
qr(Date/time)
);
module_boilerplate_ok(
'lib/BIND/SDB/LDAP/Helper.pm'
);
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
622623624625626627628629630631632{
$tb
->_unoverload_str( \
$e1
, \
$e2
);
# Either they're both references or both not.
my
$same_ref
= !( !
ref
$e1
xor !
ref
$e2
);
my
$not_ref
= ( !
ref
$e1
and !
ref
$e2
);
if
(
defined
$e1
xor
defined
$e2
) {
$ok
= 0;
}
elsif
( !
defined
$e1
and !
defined
$e2
) {
inc/Test/More.pm view on Meta::CPAN
view all matches for this distribution
637638639640641642643644645646647
$ok
= 0;
}
elsif
(
$same_ref
and(
$e1
eq
$e2
) ) {
$ok
= 1;
}
elsif
(
$not_ref
) {
push
@Data_Stack
, {
type
=>
''
,
vals
=> [
$e1
,
$e2
] };
$ok
= 0;
}
else
{
if
(
$Refs_Seen
{
$e1
} ) {
view release on metacpan or search on metacpan
303132333435363738394041424344454647484950515253545556575859require
Exporter;
@ISA
=
qw(Exporter)
;
@EXPORT
=
qw(
outside leaf
us not_us consolidate symmetric
count_by_interface count_by_address
count_by_udp count_by_tcp
no_looping no_spoofing_us no_spoofing_by_us no_leaf_spoofing
generate
drop_unwanted
tcp_from_rules udp_from_rules
tcp_to_rules udp_to_rules
from_net_rules to_net_rules
to_me_rules from_me_rules
not_to_me_rules not_from_me_rules
in_interface_rules out_interface_rules
from_us to_us
)
;
my
@from_us
;
my
@to_us
;
my
@outside
;
my
@leaf
;
my
@us
;
my
@not_us
;
my
@symmetric
;
my
@interesting
;
my
%consolidate
;
my
$if0
;
# first interface
137138139140141142143144145146147sub
leaf {
push
(
@leaf
,
@_
); };
# networks
sub
interesting {
push
(
@interesting
,
@_
); watch(
@_
); }
sub
us {
push
(
@us
,
@_
); watch(
@_
); };
sub
not_us {
push
(
@not_us
,
@_
); watch(
@_
); };
sub
symmetric {
push
(
@symmetric
,
@_
); watch(
@_
); };
sub
from_us {
push
(
@from_us
,
@_
); watch(
@_
); };
sub
to_us {
push
(
@to_us
,
@_
); watch(
@_
); };
sub
mark_addresses
316317318319320321322323324325326
return
@r
;
}
sub
get_routes
{
for
my
$net
(
@us
,
@symmetric
,
@interesting
,
@not_us
,
@from_us
,
@to_us
) {
my
(
$base
,
$mask
) = get_netmask(
$net
);
if
(
$mask
>= 24) {
$base
=~ m/^(\d+\.\d+\.\d+)\.\d+$/
or
die
"parse dest $net ($base)"
;
$track_net
{$1} =
$net
;
390391392393394395396397398399400401my
$begun
= 0;
my
@from_me_rules
;
my
@to_me_rules
;
my
@not_from_me_rules
;
my
@not_to_me_rules
;
my
%count_in
;
my
%count_out
;
my
%count_udp_from
;
my
%count_tcp_from
;
642643644645646647648649650651652653sub
from_net_rules {
my
(
$net
,
$rules
) =
@_
;
push
(@{
$from_net_rules
{
$net
}}, clean_rules(
$rules
)); }
sub
to_net_rules {
my
(
$net
,
$rules
) =
@_
;
push
(@{
$to_net_rules
{
$net
}}, clean_rules(
$rules
)); }
sub
from_me_rules {
my
(
$rules
) =
@_
;
push
(
@from_me_rules
, clean_rules(
$rules
)); }
sub
to_me_rules {
my
(
$rules
) =
@_
;
push
(
@to_me_rules
, clean_rules(
$rules
)); }
sub
not_from_me_rules {
my
(
$rules
) =
@_
;
push
(
@not_from_me_rules
, clean_rules(
$rules
)); }
sub
not_to_me_rules {
my
(
$rules
) =
@_
;
push
(
@not_to_me_rules
, clean_rules(
$rules
)); }
#sub modload
# modload /lkm/ipfw_mod.o
# XXX
#
755756757758759760761762763764765766767768769770771772773774775776777778779push
(
@rules
,
"=rulenum 10000"
);
push
(
@rules
,
"=gap"
);
# recv only happens on packets that we didn't generate
if
(
@from_us_fules
||
@not_from_me_rules
) {
push
(
@rules
,
"=skipto done-from-us all from any to any in recv =IN"
,
@from_me_rules
,
"=skipto done-not-from-us all from any to any"
,
"=label done-from-us"
,
@not_from_me_rules
,
"=label done-not-from-us"
);
push
(
@rules
,
"=gap"
);
}
if
(
@to_me_rules
||
@not_to_me_rules
) {
push
(
@rules
,
"=skipto done-to-us all from any to =ME"
,
@not_to_me_rules
,
"=skipto done-not-to-us all from any to any"
,
"=label done-to-us"
,
@to_me_rules
,
"=label done-not-to-us"
);
push
(
@rules
,
"=gap"
);
896897898899900901902903904905906
$y
=~ s/=TOUS/
$n
/g;
push
(
@n
,
$y
);
}
}
elsif
(
$x
=~ /=US/) {
my
$l2
=
$genlabel
++;
for
my
$n
(
@not_us
) {
my
$y
= remove_action(
$x
);
$y
=~ s/=US/
$n
/g;
push
(
@n
,
"=skipto $l2 $y"
);
}
for
my
$n
(
@us
) {
view all matches for this distribution
995996997998999100010011002100310041005sub
generate
{
my
(
@opt
) =
@_
;
# don't allow others to pretend that they are us
unshift
(
@not_from_me_rules
,
"=skiprule all from any to any in recv 'lo*'"
,
"=deny_log all from =ME to any # ns-op"
);
my
@legal
= qw(
LOG_DENIES
view release on metacpan or search on metacpan
2425262728293031323334#include <sys/time.h>
static char
*rcs_id
=
"$Id: Itimer.xs,v 1.2 1999/07/28 02:26:50 hag Exp $"
;
static
int
not_here(s)
char
*s
;
{
croak(
"%s not implemented on this architecture"
, s);
return
-1;
}
view all matches for this distribution
434445464748495051525354555657585960616263646566676869707172737475767778
case
'I'
:
if
(strEQ(name,
"ITIMER_PROF"
))
#ifdef ITIMER_PROF
return
ITIMER_PROF;
#else
goto
not_there;
#endif
if
(strEQ(name,
"ITIMER_REAL"
))
#ifdef ITIMER_REAL
return
ITIMER_REAL;
#else
goto
not_there;
#endif
if
(strEQ(name,
"ITIMER_REALPROF"
))
#ifdef ITIMER_REALPROF
return
ITIMER_REALPROF;
#else
goto
not_there;
#endif
if
(strEQ(name,
"ITIMER_VIRTUAL"
))
#ifdef ITIMER_VIRTUAL
return
ITIMER_VIRTUAL;
#else
goto
not_there;
#endif
break;
}
errno = EINVAL;
return
0;
not_there:
errno = ENOENT;
return
0;
}
MODULE = BSD::Itimer PACKAGE = BSD::Itimer
view release on metacpan or search on metacpan
6667686970717273747576parent_waiting
=>
'ppwait'
,
started_profiling
=>
'profil'
,
stopped_profiling
=>
'stopprof'
,
id_privs_set
=>
'sugid'
,
system_process
=>
'system'
,
single_exit_not_wait
=>
'single_exit'
,
traced_by_debugger
=>
'traced'
,
waited_on_by_other
=>
'waited'
,
working_on_exiting
=>
'wexit'
,
process_called_exec
=>
'exec'
,
kernel_session_flag
=>
'kiflag'
,
view all matches for this distribution
802803804805806807808809810811812=item system_process, system
Flag indicating whether the process is a system process. B<F5+>
=item single_exit_not_wait, single_exit
Flag indicating that threads that are suspended should exit, not
wait. B<F5+>
=item traced_by_debugger, traced
view release on metacpan or search on metacpan
Resource.xs view on Meta::CPAN
202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232#define HAS_SETPRIORITY
#endif
#endif
#ifndef HAS_GETPRIORITY
#define _getpriority(a,b) not_here("getpriority")
#endif
#ifndef HAS_GETRLIMIT
#define _getrlimit(a) not_here("getrlimit")
#endif
#ifndef HAS_GETRUSAGE
#define _getrusage(a) not_here("getrusage")
#endif
#ifndef HAS_SETPRIORITY
#define _setpriority(a,b,c) not_here("setpriority")
#endif
#ifndef HAS_SETRLIMIT
#define _setrlimit(a,b,c) not_here("setrlimit")
#endif
static
int
not_here(s)
char
*s
;
{
croak(
"BSD::Resource::%s not implemented on this architecture"
, s);
return
-1;
}
Resource.xs view on Meta::CPAN
view all matches for this distribution
241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564
case
'E'
:
if
(strEQ(name,
"EINVAL"
))
#ifdef EINVAL
return
EINVAL;
#else
goto
not_there;
#endif
if
(strEQ(name,
"ENOENT"
))
#ifdef ENOENT
return
ENOENT;
#else
goto
not_there;
#endif
break;
case
'P'
:
if
(strnEQ(name,
"PRIO_"
, 5)) {
if
(strEQ(name,
"PRIO_CONTRACT"
))
#if defined(PRIO_CONTRACT) || defined(HAS_PRIO_CONTRACT)
return
PRIO_CONTRACT;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_LWP"
))
#if defined(PRIO_LWP) || defined(HAS_PRIO_LWP)
return
PRIO_LWP;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_MIN"
))
#if defined(PRIO_MIN) || defined(HAS_PRIO_MIN)
return
PRIO_MIN;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_MAX"
))
#if defined(PRIO_MAX) || defined(HAS_PRIO_MAX)
return
PRIO_MAX;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_PGRP"
))
#if defined(PRIO_PGRP) || defined(HAS_PRIO_PGRP)
return
PRIO_PGRP;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_PROCESS"
))
#if defined(PRIO_PROCESS) || defined(HAS_PRIO_PROCESS)
return
PRIO_PROCESS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_PROJECT"
))
#if defined(PRIO_PROJECT) || defined(HAS_PRIO_PROJECT)
return
PRIO_PROJECT;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_SESSION"
))
#if defined(PRIO_SESSION) || defined(HAS_PRIO_SESSION)
return
PRIO_SESSION;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_USER"
))
#if defined(PRIO_USER) || defined(HAS_PRIO_USER)
return
PRIO_USER;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_USER"
))
#if defined(PRIO_USER) || defined(HAS_PRIO_USER)
return
PRIO_USER;
#else
goto
not_there;
#endif
if
(strEQ(name,
"PRIO_ZONE"
))
#if defined(PRIO_ZONE) || defined(HAS_PRIO_ZONE)
return
PRIO_ZONE;
#else
goto
not_there;
#endif
}
goto
not_there;
case
'R'
:
if
(strnEQ(name,
"RLIM"
, 4)) {
if
(strEQ(name,
"RLIMIT_AIO_MEM"
))
#if defined(RLIMIT_AIO_MEM) || defined(HAS_RLIMIT_AIO_MEM)
return
RLIMIT_AIO_MEM;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_AIO_OPS"
))
#if defined(RLIMIT_AIO_OPS) || defined(HAS_RLIMIT_AIO_OPS)
return
RLIMIT_AIO_OPS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_AS"
))
#if defined(RLIMIT_AS) || defined(HAS_RLIMIT_AS)
return
RLIMIT_AS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_CORE"
))
#if defined(RLIMIT_CORE) || defined(HAS_RLIMIT_CORE)
return
RLIMIT_CORE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_CPU"
))
#if defined(RLIMIT_CPU) || defined(HAS_RLIMIT_CPU)
return
RLIMIT_CPU;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_DATA"
))
#if defined(RLIMIT_DATA) || defined(HAS_RLIMIT_DATA)
return
RLIMIT_DATA;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_FREEMEM"
))
#if defined(RLIMIT_FREEMEM) || defined(HAS_RLIMIT_FREEMEM)
return
RLIMIT_FREEMEM;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_FSIZE"
))
#if defined(RLIMIT_FSIZE) || defined(HAS_RLIMIT_FSIZE)
return
RLIMIT_FSIZE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_LOCKS"
))
#if defined(RLIMIT_LOCKS) || defined(HAS_RLIMIT_LOCKS)
return
RLIMIT_LOCKS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_MEMLOCK"
))
#if defined(RLIMIT_MEMLOCK) || defined(HAS_RLIMIT_MEMLOCK)
return
RLIMIT_MEMLOCK;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_MSGQUEUE"
))
#if defined(RLIMIT_MSGQUEUE) || defined(HAS_RLIMIT_MSGQUEUE)
return
RLIMIT_MSGQUEUE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_NICE"
))
#if defined(RLIMIT_NICE) || defined(HAS_RLIMIT_NICE)
return
RLIMIT_NICE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_NOFILE"
))
#if defined(RLIMIT_NOFILE) || defined(HAS_RLIMIT_NOFILE)
return
RLIMIT_NOFILE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_NPROC"
))
#if defined(RLIMIT_NPROC) || defined(HAS_RLIMIT_NPROC)
return
RLIMIT_NPROC;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_NPTS"
))
#if defined(RLIMIT_NPTS) || defined(HAS_RLIMIT_NPTS)
return
RLIMIT_NPTS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_OFILE"
))
#if defined(RLIMIT_OFILE) || defined(HAS_RLIMIT_OFILE)
return
RLIMIT_OFILE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_OPEN_MAX"
))
#if defined(RLIMIT_OPEN_MAX) || defined(HAS_RLIMIT_OPEN_MAX)
return
RLIMIT_OPEN_MAX;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_POSIXLOCKS"
))
#if defined(RLIMIT_POSIXLOCKS) || defined(HAS_RLIMIT_POSIXLOCKS)
return
RLIMIT_POSIXLOCKS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_PTHREAD"
))
#if defined(RLIMIT_PTHREAD) || defined(HAS_RLIMIT_PTHREAD)
return
RLIMIT_PTHREAD;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_RSESTACK"
))
#if defined(RLIMIT_RSESTACK) || defined(HAS_RLIMIT_RSESTACK)
return
RLIMIT_RSESTACK;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_RSS"
))
#if defined(RLIMIT_RSS) || defined(HAS_RLIMIT_RSS)
return
RLIMIT_RSS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_RTPRIO"
))
#if defined(RLIMIT_RTPRIO) || defined(HAS_RLIMIT_RTPRIO)
return
RLIMIT_RTPRIO;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_RTTIME"
))
#if defined(RLIMIT_RTTIME) || defined(HAS_RLIMIT_RTTIME)
return
RLIMIT_RTTIME;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_SBSIZE"
))
#if defined(RLIMIT_SBSIZE) || defined(HAS_RLIMIT_SBSIZE)
return
RLIMIT_SBSIZE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_SIGPENDING"
))
#if defined(RLIMIT_SIGPENDING) || defined(HAS_RLIMIT_SIGPENDING)
return
RLIMIT_SIGPENDING;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_STACK"
))
#if defined(RLIMIT_STACK) || defined(HAS_RLIMIT_STACK)
return
RLIMIT_STACK;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_SWAP"
))
#if defined(RLIMIT_SWAP) || defined(HAS_RLIMIT_SWAP)
return
RLIMIT_SWAP;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_TCACHE"
))
#if defined(RLIMIT_TCACHE) || defined(HAS_RLIMIT_TCACHE)
return
RLIMIT_TCACHE;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIMIT_VMEM"
))
#if defined(RLIMIT_VMEM) || defined(HAS_RLIMIT_VMEM)
return
RLIMIT_VMEM;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIM_INFINITY"
))
#if defined(RLIM_INFINITY) || defined(HAS_RLIM_INFINITY)
return
-1.0; /* trust me */
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIM_NLIMITS"
))
#if defined(RLIM_NLIMITS) || defined(HAS_RLIM_NLIMITS)
return
RLIM_NLIMITS;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIM_SAVED_CUR"
))
#if defined(RLIM_SAVED_CUR) || defined(HAS_RLIM_SAVED_CUR)
return
RLIM_SAVED_CUR;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RLIM_SAVED_MAX"
))
#if defined(RLIM_SAVED_MAX) || defined(HAS_RLIM_SAVED_MAX)
return
RLIM_SAVED_MAX;
#else
goto
not_there;
#endif
break;
}
if
(strnEQ(name,
"RUSAGE_"
, 7)) {
if
(strEQ(name,
"RUSAGE_BOTH"
))
#if defined(RUSAGE_BOTH) || defined(HAS_RUSAGE_BOTH)
return
RUSAGE_BOTH;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RUSAGE_CHILDREN"
))
#if defined(RUSAGE_CHILDREN) || defined(HAS_RUSAGE_CHILDREN)
return
RUSAGE_CHILDREN;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RUSAGE_SELF"
))
#if defined(RUSAGE_SELF) || defined(HAS_RUSAGE_SELF)
return
RUSAGE_SELF;
#else
goto
not_there;
#endif
if
(strEQ(name,
"RUSAGE_THREAD"
))
#if defined(RUSAGE_THREAD) || defined(HAS_RUSAGE_THREAD)
return
RUSAGE_THREAD;
#else
goto
not_there;
#endif
break;
}
}
errno = EINVAL;
return
0;
not_there:
errno = ENOENT;
return
0;
}
#define HV_STORE_RES(h, l) (void)hv_store(h, #l, sizeof(#l)-1, newSViv(l), 0)
view release on metacpan or search on metacpan
18251826182718281829183018311832183318341835nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
view all matches for this distribution
31783179318031813182318331843185318631873188# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
608609610611612613614615616617618$tb
->_unoverload_str( \
$e1
, \
$e2
);
# Either they're both references or both not.
my
$same_ref
= !( !
ref
$e1
xor !
ref
$e2
);
my
$not_ref
= ( !
ref
$e1
and !
ref
$e2
);
if
(
defined
$e1
xor
defined
$e2
) {
$ok
= 0;
}
elsif
( !
defined
$e1
and !
defined
$e2
) {
inc/Test/More.pm view on Meta::CPAN
view all matches for this distribution
623624625626627628629630631632633
$ok
= 0;
}
elsif
(
$same_ref
and(
$e1
eq
$e2
) ) {
$ok
= 1;
}
elsif
(
$not_ref
) {
push
@Data_Stack
, {
type
=>
''
,
vals
=> [
$e1
,
$e2
] };
$ok
= 0;
}
else
{
if
(
$Refs_Seen
{
$e1
} ) {
view release on metacpan or search on metacpan
15011502150315041505150615071508150915101511nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsCV|||
view all matches for this distribution
26382639264026412642264326442645264626472648# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
view all matches for this distribution
24252627282930313233#ifndef PERL_API_VERSION
#define newSVuv newSViv
#endif
static
int
not_here(char
*s
)
{
croak(
"%s not implemented on this architecture"
, s);
return
-1;
}
view release on metacpan or search on metacpan
196819691970197119721973197419751976197719781979ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
26482649265026512652265326542655265626572658watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
view all matches for this distribution
34153416341734183419342034213422342334243425# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
sample/mailserver/server_config.xml view on Meta::CPAN
view all matches for this distribution
189190191192193194195196197198199
</parameter>
<parameter>
<uid>uid</uid>
</parameter>
<parameter>
<not_encrypted_passwd>test</not_encrypted_passwd>
</parameter>
</sendmail>
<cyrus>
</cyrus>
view release on metacpan or search on metacpan
lib/BackPAN/Version/Discover.pm view on Meta::CPAN
view all matches for this distribution
7273747576777879808182
# info from the results, plus info needed to re-run the same scan
# any anything else people may ask for :)
return
BackPAN::Version::Discover::Results->new(
releases_matched
=>
$bp_releases
,
skipped_modules
=>
$skipped_modules
,
dists_not_matched
=>
$no_release_matched
,
searched_dirs
=> \
@search_dirs
,
dist_info
=>
$dist_info
,
scan_args
=> \
%args
,
);
}
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
view all matches for this distribution
78910111213141516my
$handler
= test_handler();
my
$triggered
= 0;
$handler
->on(
'wanted'
,
sub
{
$triggered
++ });
$handler
->trigger(
'not_wanted'
);
is
$triggered
, 0,
'callback not triggered on unwanted event'
;
$handler
->trigger(
'wanted'
);
is
$triggered
, 1,
'callback triggered on wanted event'
;