view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

av_shift|5.003007|5.003007|
av_store|5.003007|5.003007|
av_store_simple|5.035002||cV
av_tindex|5.017009|5.003007|p
av_tindex_skip_len_mg|5.025010||Viu
av_top_index|5.017009|5.003007|p
av_top_index_skip_len_mg|5.025010||Viu
av_undef|5.003007|5.003007|
av_unshift|5.003007|5.003007|
ax|5.003007|5.003007|
backup_one_GCB|5.025003||Viu
backup_one_LB|5.023007||Viu
backup_one_SB|5.021009||Viu
backup_one_WB|5.021009||Viu
bad_type_gv|5.019002||Viu
bad_type_pv|5.016000||Viu
BADVERSION|5.011004||Viu
BASEOP|5.003007||Viu
BhkDISABLE|5.013003||xV
BhkENABLE|5.013003||xV
BhkENTRY|5.013003||xVi
BhkENTRY_set|5.013003||xV
BHKf_bhk_eval|5.013006||Viu
BHKf_bhk_post_end|5.013006||Viu

private/MakeUtil.pm  view on Meta::CPAN

# sub doUpDownViaCopy
# {
#     my $our_sub = shift;
#     my $warn_sub = shift;
#     my $file     = shift ;
#
#     use File::Copy ;
#
#     return if -d $file ;
#
#     my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
#
#     copy($file, $backup)
#         or die "Cannot copy $file to $backup: $!";
#
#     my @keep = ();
#
#     {
#         open F, "<$file"
#             or die "Cannot open $file: $!\n" ;
#         while (<F>)
#         {
#             if (/^__(END|DATA)__/)
#             {