1Devel::PatchPerl::HintsU(s3e)r Contributed Perl DocumentaDteivoenl::PatchPerl::Hints(3)
2
3
4
6 Devel::PatchPerl::Hints - replacement 'hints' files
7
9 version 2.08
10
12 use Devel::PatchPerl::Hints;
13
14 if ( my $content = Devel::PatchPerl::Hints->hint_file() ) {
15 chmod 0644, 'hints/netbsd.sh' or die "$!";
16 open my $hints, '>', 'hints/netbsd.sh' or die "$!";
17 print $hints $content;
18 close $hints;
19 }
20
21 # Get a list of OS for which we have hints
22
23 my @os = Devel::PatchPerl::Hints->hints();
24
26 Sometimes there is a problem with Perls "hints" file for a particular
27 perl port. This module provides fixed "hints" files encoded using
28 "MIME::Base64".
29
31 The function is exported, but has to implicitly imported into the
32 requesting package.
33
34 use Devel::PatchPerl::Hints qw[hint_file];
35
36 It may also be called as a class method:
37
38 use Devel::PatchPerl::Hints;
39
40 my $content = Devel::PatchPerl::Hints->hint_file();
41
42 "hint_file"
43 Takes an optional argument which is the OS name ( as would be
44 returned by $^O ). By default it will use $^O.
45
46 In a scalar context, Will return the decoded content of the "hints"
47 file suitable for writing straight to a file handle or undef list
48 if there isn't an applicable "hints" file for the given or derived
49 OS.
50
51 If called in a list context, will return a list, the first item
52 will be the name of the "hints" file that will need to be amended,
53 the second item will be a string with the decoded content of the
54 "hints" file suitable for writing straight to a file handle.
55 Otherwise an empty list will be returned.
56
57 "hints"
58 Takes no arguments, returns a list of OS names for which there are
59 "hints" files.
60
62 Chris Williams <chris@bingosnet.co.uk>
63
65 This software is copyright (c) 2021 by Chris Williams and Marcus
66 Holland-Moritz.
67
68 This is free software; you can redistribute it and/or modify it under
69 the same terms as the Perl 5 programming language system itself.
70
71
72
73perl v5.32.0 2021-01-13 Devel::PatchPerl::Hints(3)