The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

PFEIFFER / mpp-4 / t / additional_tests / 2004_12_20_errors.test 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

              
###     SPAR <http://www.cpan.org/scripts/>
###     48      644     1103567918      1103567911      Makeppfile
perl_begin
 warn 0;
 sub f_foo {
  warn 1;
  "foo"
 }
perl_end
sub f_bar {
  warn 2;
  "bar"
}
perl {
 sub f_fubar {
  warn 3;
  "fubar"
 }
}
X := $(perl sub f_foobar { warn 4; "foobar" })
$(phony default): input_check foo
        &echo $(foo 2)
        &echo $(bar)
        &echo $(fubar 2)
        &echo $(foobar)
        &echo a $(warning 5) b
        perl {{
                warn 6;
        }}
include dir/foo.mk
input_check: nothing
        perl {{
                my ($input, $output) =
                 (f_input(undef, @Cxt), f_output(undef, @Cxt));
                open(OUT, ">$output") or die;
                print OUT "$input\n";
                close(OUT);
        }}
$(phony nothing):
ifeq $(warning 8)
  Y := $(warning 9)
endif
###     D       755     1103567444      1103567383      answers
###     10      644     1119250783      1103567928      answers/warnings
*** warning: 0 at Makeppfile line 2.
*** warning: 8 at `Makeppfile:46'
*** warning: 9 at `Makeppfile:47'
*** warning: 1 at Makeppfile line 4.
*** warning: 2 at Makeppfile line 10.
*** warning: 3 at Makeppfile line 16.
*** warning: 4 at Makeppfile line 21.
*** warning: 5 at `Makeppfile:23'
*** warning: 7 at foo.mk line 2.
*** warning: 6 at Makeppfile line 24.
###     1       644     1103567804      1103567928      answers/input_check
nothing
###     D       755     1103567444      1103567383      dir
###     4       644     1103567804      1103567928      dir/foo.mk
$(phony foo):
        perl {{
                warn 7;
        }}
###     24      755     1164209909      1103567781      makepp_test_script.pl
makepp;
my $good = '';
{
  open my $log, '<', '.makepp/log';
  open my $warn, '>', 'warnings';
  while( <$log> ) {
    if( /warning:/ ) {
      tr/\02//d;
      # Windows makepp downcases filename.
      s/at \S*[Mm]akeppfile:/at `Makeppfile:/ or
        s/at \S*[Mm]akeppfile /at Makeppfile / or
        s!(?:[A-Za-z]:)?/.*/dir/!!;
      print $warn $_;
    } else {
      $good .= $_;
    }
  }
}
# Eliminate warnings from log.
open my $log, '>', '.makepp/log';
print $log $good;