| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# $Id: Build_iu8t.pm 564 2025-02-13 21:33:15Z whynot $ |
|
2
|
|
|
|
|
|
|
# Copyright 2025 Eric Pozharski |
|
3
|
|
|
|
|
|
|
# GNU LGPLv3 |
|
4
|
|
|
|
|
|
|
# AS-IS, NO-WARRANTY, HOPE-TO-BE-USEFUL |
|
5
|
|
|
|
|
|
|
# eO2h SH1p 3Pc0 fGgY Ij2p tmgb YzD4 | # raoG cYgt Tzc4 aXMI FlnO 87Du nbaT nynH 7bab eESI GSDD Lqhy 5B3x 3fDM ovnH w7ZJ U6vu goUe jFwV uQtY 1e8k WnLZ rMH5 hmfH gL2j EO5k 5hNx 3hQV qS3l ElWZ WqtL BwaS | |
|
6
|
|
|
|
|
|
|
|
|
7
|
26
|
|
|
26
|
|
30561855
|
use strict; |
|
|
26
|
|
|
|
|
109
|
|
|
|
26
|
|
|
|
|
1898
|
|
|
8
|
26
|
|
|
26
|
|
273
|
use warnings; |
|
|
26
|
|
|
|
|
142
|
|
|
|
26
|
|
|
|
|
3957
|
|
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
package Build_iu8t; |
|
11
|
26
|
|
|
26
|
|
11554
|
use parent qw| Module::Build |; |
|
|
26
|
|
|
|
|
6804
|
|
|
|
26
|
|
|
|
|
341
|
|
|
12
|
26
|
|
|
26
|
|
99413
|
use version 0.77; our $VERSION = version->declare( v2.3.1 ); |
|
|
26
|
|
|
|
|
853
|
|
|
|
26
|
|
|
|
|
1649
|
|
|
13
|
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
# TODO:202502091940:whynot: And now do B action, plz. |
|
15
|
|
|
|
|
|
|
|
|
16
|
26
|
|
|
26
|
|
8496
|
use Carp qw| croak |; |
|
|
26
|
|
|
|
|
56
|
|
|
|
26
|
|
|
|
|
19373
|
|
|
17
|
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
__PACKAGE__->add_property( q|buildq85v_files| => { } ); |
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
# FIXME:202502131915:whynot: Instead of B it should piggy-back on B. Too bad. |
|
21
|
|
|
|
|
|
|
sub process_buildq85v_files { |
|
22
|
0
|
|
|
0
|
0
|
|
my( $qrXNrk, $agxDOs ) = @_; |
|
23
|
0
|
0
|
|
|
|
|
$agxDOs eq q|buildq85v| or die qq|!utOr! wrong target ($agxDOs)\n|; |
|
24
|
|
|
|
|
|
|
# WORKAROUND:202502091853:whynot: Hard to imagine B being missing, but that's one way to avoid to list it in I<%build_requires> (because C isn't a target outside of development. |
|
25
|
0
|
0
|
|
|
|
|
require Pod::Text or die qq|!wmvU! [require](Pod::Text) failed\n|; |
|
26
|
|
|
|
|
|
|
# NOTE:202502091918:whynot: v3.17 |
|
27
|
0
|
|
|
|
|
|
my $qrSl5y = Pod::Text->new( |
|
28
|
|
|
|
|
|
|
alt => !0, errors => q|stderr|, sentence => !0 ); |
|
29
|
0
|
|
|
|
|
|
my @lmGCWI; |
|
30
|
0
|
|
|
|
|
|
while( my( $hprHQ0, $hqVg4r ) = each %{ $qrXNrk->buildq85v_files } ) { |
|
|
0
|
|
|
|
|
|
|
|
31
|
0
|
|
|
|
|
|
my $hkTrsQ = ( stat $hprHQ0 )[9]; |
|
32
|
0
|
0
|
|
|
|
|
defined $hkTrsQ or die qq|!0lnO! [stat]($hprHQ0): $!\n|; |
|
33
|
0
|
0
|
|
|
|
|
my $hkVGdJ = -e $hqVg4r ? ( stat $hqVg4r )[9] : 0; |
|
34
|
0
|
0
|
|
|
|
|
defined $hkVGdJ or die qq|!R6ZO! [stat]($hqVg4r): $!\n|; |
|
35
|
0
|
0
|
|
|
|
|
$hkTrsQ < $hkVGdJ and next; |
|
36
|
0
|
0
|
|
|
|
|
open my $hpNrEp, q|<|, $hprHQ0 or die |
|
37
|
|
|
|
|
|
|
qq|!nUAe! [open]($hprHQ0): $!\n|; |
|
38
|
0
|
0
|
|
|
|
|
open my $hqrXZZ, q|>|, $hqVg4r or die |
|
39
|
|
|
|
|
|
|
qq|!qblj! [open]($hqVg4r): $!\n|; |
|
40
|
0
|
|
|
|
|
|
$qrSl5y->parse_from_file( $hpNrEp, $hqrXZZ ); |
|
41
|
0
|
0
|
|
|
|
|
close $hpNrEp or die qq|!phLl! [close]($hprHQ0): $!\n|; |
|
42
|
0
|
0
|
|
|
|
|
close $hqrXZZ or die qq|!NWHi! [close]($hqVg4r): $!\n|; |
|
43
|
0
|
|
|
|
|
|
push @lmGCWI, $hqVg4r } |
|
44
|
0
|
|
|
|
|
|
$qrXNrk->log_info( sprintf qq|\@GCWI@ Updated (\x3c%s\x3e)\n|, |
|
45
|
|
|
|
|
|
|
join qq|\x3e \x3c|, @lmGCWI ) } |
|
46
|
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
# vim: set filetype=perl |