Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 1045 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/reportbug.al)" | |
7 | #============================================================================== | |
8 | # User wants to report a bug | |
9 | #============================================================================== | |
10 | sub reportbug { | |
11 | use strict; | |
12 | my $o = shift; | |
13 | return if $o->{INLINE}{reportbug_handled}++; | |
14 | print STDERR <<END; | |
15 | <-----------------------REPORTBUG Section-------------------------------------> | |
16 | ||
17 | REPORTBUG mode in effect. | |
18 | ||
19 | Your Inline $o->{API}{language_id} code will be processed in the build directory: | |
20 | ||
21 | $o->{API}{build_dir} | |
22 | ||
23 | A perl-readable bug report including your perl configuration and run-time | |
24 | diagnostics will also be generated in the build directory. | |
25 | ||
26 | When the program finishes please bundle up the above build directory with: | |
27 | ||
28 | tar czf Inline.REPORTBUG.tar.gz $o->{API}{build_dir} | |
29 | ||
30 | and send "Inline.REPORTBUG.tar.gz" as an email attachment to the author | |
31 | of the offending Inline::* module with the subject line: | |
32 | ||
33 | REPORTBUG: Inline.pm | |
34 | ||
35 | Include in the email, a description of the problem and anything else that | |
36 | you think might be helpful. Patches are welcome! :-\) | |
37 | ||
38 | <-----------------------End of REPORTBUG Section------------------------------> | |
39 | END | |
40 | my %versions; | |
41 | { | |
42 | no strict 'refs'; | |
43 | %versions = map {eval "use $_();"; ($_, $ {$_ . '::VERSION'})} | |
44 | qw (Digest::MD5 Parse::RecDescent | |
45 | ExtUtils::MakeMaker File::Path FindBin | |
46 | Inline | |
47 | ); | |
48 | } | |
49 | ||
50 | $o->mkpath($o->{API}{build_dir}); | |
51 | open REPORTBUG, "> ".File::Spec->catfile($o->{API}{build_dir},"REPORTBUG") | |
52 | or croak M24_open_for_output_failed | |
53 | (File::Spec->catfile($o->{API}{build_dir},"REPORTBUG")); | |
54 | %Inline::REPORTBUG_Inline_Object = (); | |
55 | %Inline::REPORTBUG_Perl_Config = (); | |
56 | %Inline::REPORTBUG_Module_Versions = (); | |
57 | print REPORTBUG Inline::denter->new() | |
58 | ->indent(*REPORTBUG_Inline_Object, $o, | |
59 | *REPORTBUG_Perl_Config, \%Config::Config, | |
60 | *REPORTBUG_Module_Versions, \%versions, | |
61 | ); | |
62 | close REPORTBUG; | |
63 | } | |
64 | ||
65 | # end of Inline::reportbug | |
66 | 1; |