In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dee28d0dbca2d9719243e3e17392dcd12d011104?hp=ce7ce09736ea27007b926de51e1f44c473ea79e5>
- Log ----------------------------------------------------------------- commit dee28d0dbca2d9719243e3e17392dcd12d011104 Author: Chris 'BinGOs' Williams <[email protected]> Date: Mon Aug 4 12:47:34 2014 +0100 Update perlfaq to CPAN version 5.0150045 [DELTA] 5.0150045 Sun 3 Aug 2014 18:16:06 +0100 * Improve example, use File::Spec (Brian Fraser) * Typo in perlfaq7 (Rares Aioanei, via shlomif) * Typo in perlfaq1 (Xaerxess) ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/perlfaq/lib/perlfaq.pm | 5 +---- cpan/perlfaq/lib/perlfaq1.pod | 2 +- cpan/perlfaq/lib/perlfaq5.pod | 6 ++++-- cpan/perlfaq/lib/perlfaq7.pod | 2 +- 5 files changed, 8 insertions(+), 9 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 5c2b8f2..6576d81 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -864,7 +864,7 @@ use File::Glob qw(:case); }, 'perlfaq' => { - 'DISTRIBUTION' => 'LLAP/perlfaq-5.0150044.tar.gz', + 'DISTRIBUTION' => 'LLAP/perlfaq-5.0150045.tar.gz', 'FILES' => q[cpan/perlfaq], 'EXCLUDED' => [ qw( t/release-pod-syntax.t diff --git a/cpan/perlfaq/lib/perlfaq.pm b/cpan/perlfaq/lib/perlfaq.pm index 6d6a05a..9a64d66 100644 --- a/cpan/perlfaq/lib/perlfaq.pm +++ b/cpan/perlfaq/lib/perlfaq.pm @@ -1,6 +1,3 @@ package perlfaq; -{ - $perlfaq::VERSION = '5.0150044'; -} - +$perlfaq::VERSION = '5.0150045'; 0; # not is it supposed to be loaded diff --git a/cpan/perlfaq/lib/perlfaq1.pod b/cpan/perlfaq/lib/perlfaq1.pod index 19eb1ed..ad39051 100644 --- a/cpan/perlfaq/lib/perlfaq1.pod +++ b/cpan/perlfaq/lib/perlfaq1.pod @@ -116,7 +116,7 @@ and an experimental version. The maintenance versions are stable, and have an even number as the minor release (i.e. perl5.18.x, where 18 is the minor release). The experimental versions may include features that don't make it into the stable versions, and have an odd number as the -minor release (i.e. perl5.19.x, where 9 is the minor release). +minor release (i.e. perl5.19.x, where 19 is the minor release). =back diff --git a/cpan/perlfaq/lib/perlfaq5.pod b/cpan/perlfaq/lib/perlfaq5.pod index a2baf16..a8d4478 100644 --- a/cpan/perlfaq/lib/perlfaq5.pod +++ b/cpan/perlfaq/lib/perlfaq5.pod @@ -431,8 +431,10 @@ temporary files in one process, use a counter: BEGIN { use Fcntl; - my $temp_dir = -d '/tmp' ? '/tmp' : $ENV{TMPDIR} || $ENV{TEMP}; - my $base_name = sprintf "%s/%d-%d-0000", $temp_dir, $$, time; + use File::Spec; + my $temp_dir = File::Spec->tmpdir(); + my $file_base = sprintf "%d-%d-0000", $$, time; + my $base_name = File::Spec->catfile($temp_dir, $file_base); sub temp_file { my $fh; diff --git a/cpan/perlfaq/lib/perlfaq7.pod b/cpan/perlfaq/lib/perlfaq7.pod index bd6c102..3c5ab84 100644 --- a/cpan/perlfaq/lib/perlfaq7.pod +++ b/cpan/perlfaq/lib/perlfaq7.pod @@ -201,7 +201,7 @@ transfer the module to you. If you can not reach the author for some reason contact the PAUSE admins at [email protected] who may be able to help, -but each case it treated separately. +but each case is treated separately. =over 4 -- Perl5 Master Repository
