1Devel::PatchPerl::HintsU(s3e)r Contributed Perl DocumentaDteivoenl::PatchPerl::Hints(3)
2
3
4
6 Devel::PatchPerl::Hints - replacement 'hints' files
7
9 version 0.60
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
22 Sometimes there is a problem with Perls "hints" file for a particular
23 perl port. This module provides fixed "hints" files encoded using
24 "MIME::Base64".
25
27 The function is exported, but has to implicitly imported into the
28 requesting package.
29
30 use Devel::PatchPerl::Hints qw[hint_file];
31
32 It may also be called as a class method:
33
34 use Devel::PatchPerl::Hints;
35
36 my $content = Devel::PatchPerl::Hints->hint_file();
37
38 "hint_file"
39 Takes an optional argument which is the OS name ( as would be
40 returned by $^O ). By default it will use $^O.
41
42 In a scalar context, Will return the decoded content of the "hints"
43 file suitable for writing straight to a file handle or undef list
44 if there isn't an applicable "hints" file for the given or derived
45 OS.
46
47 If called in a list context, will return a list, the first item
48 will be the name of the "hints" file that will need to be amended,
49 the second item will be a string with the decoded content of the
50 "hints" file suitable for writing straight to a file handle.
51 Otherwise an empty list will be returned.
52
54 Chris Williams <chris@bingosnet.co.uk>
55
57 This software is copyright (c) 2011 by Chris Williams and Marcus
58 Holland-Moritz.
59
60 This is free software; you can redistribute it and/or modify it under
61 the same terms as the Perl 5 programming language system itself.
62
63
64
65perl v5.12.4 2011-10-24 Devel::PatchPerl::Hints(3)