Change 28605 by [EMAIL PROTECTED] on 2006/07/21 17:56:39
Upgrade to Devel::PPPort 3.09_01
Affected files ...
... //depot/perl/ext/Devel/PPPort/Changes#29 edit
... //depot/perl/ext/Devel/PPPort/HACKERS#9 edit
... //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#22 edit
... //depot/perl/ext/Devel/PPPort/PPPort_xs.PL#5 edit
... //depot/perl/ext/Devel/PPPort/mktests.PL#8 edit
... //depot/perl/ext/Devel/PPPort/parts/ppptools.pl#6 edit
... //depot/perl/ext/Devel/PPPort/soak#17 edit
Differences ...
==== //depot/perl/ext/Devel/PPPort/Changes#29 (xtext) ====
Index: perl/ext/Devel/PPPort/Changes
--- perl/ext/Devel/PPPort/Changes#28~28507~ 2006-07-08 09:27:10.000000000
-0700
+++ perl/ext/Devel/PPPort/Changes 2006-07-21 10:56:39.000000000 -0700
@@ -1,3 +1,7 @@
+3.09_01 - 2006-07-21
+
+ * avoid using 'glob' when running under miniperl
+
3.09 - 2006-07-08
* fix Makefile.PL's c_o override
==== //depot/perl/ext/Devel/PPPort/HACKERS#9 (text) ====
Index: perl/ext/Devel/PPPort/HACKERS
--- perl/ext/Devel/PPPort/HACKERS#8~28507~ 2006-07-08 09:27:10.000000000
-0700
+++ perl/ext/Devel/PPPort/HACKERS 2006-07-21 10:56:39.000000000 -0700
@@ -159,15 +159,14 @@
The scripts F<PPPort_pm.PL>, F<PPPort_xs.PL> and F<mktests.PL> all
use the information in F<parts/inc/> to generate the main module
-F<PPPort.pm>, the XS code in F<PPPort.xs> and various test files
+F<PPPort.pm>, the XS code in F<RealPPPort.xs> and various test files
in F<t/>.
All of these files could be generated on the fly while building
-C<Devel::PPPort>, but not having the tests in C<t/> and not having
-F<PPPort.xs> will confuse Configure and TEST/harness in the core.
-Not having F<PPPort.pm> will be bad for viewing the docs on
-C<search.cpan.org>. So unfortunately, it's unavoidable to put
-some redundancy into the package.
+C<Devel::PPPort>, but not having the tests in C<t/> will confuse
+TEST/harness in the core. Not having F<PPPort.pm> will be bad for
+viewing the docs on C<search.cpan.org>. So unfortunately, it's
+unavoidable to put some redundancy into the package.
=head2 Adding stuff to Devel::PPPort
==== //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#22 (text) ====
Index: perl/ext/Devel/PPPort/PPPort_pm.PL
--- perl/ext/Devel/PPPort/PPPort_pm.PL#21~28507~ 2006-07-08
09:27:10.000000000 -0700
+++ perl/ext/Devel/PPPort/PPPort_pm.PL 2006-07-21 10:56:39.000000000 -0700
@@ -498,7 +498,7 @@
use strict;
use vars qw($VERSION $data);
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
sub _init_data
{
==== //depot/perl/ext/Devel/PPPort/PPPort_xs.PL#5 (text) ====
Index: perl/ext/Devel/PPPort/PPPort_xs.PL
--- perl/ext/Devel/PPPort/PPPort_xs.PL#4~28474~ 2006-07-03 14:40:58.000000000
-0700
+++ perl/ext/Devel/PPPort/PPPort_xs.PL 2006-07-21 10:56:39.000000000 -0700
@@ -4,9 +4,9 @@
#
################################################################################
#
-# $Revision: 10 $
+# $Revision: 11 $
# $Author: mhx $
-# $Date: 2006/07/03 21:48:33 +0200 $
+# $Date: 2006/07/21 19:21:40 +0200 $
#
################################################################################
#
@@ -40,7 +40,7 @@
my $file;
my $sec;
-for $file (glob 'parts/inc/*') {
+for $file (all_files_in_dir('parts/inc')) {
my $spec = parse_partspec($file);
my $msg = 0;
@@ -85,9 +85,9 @@
*
********************************************************************************
*
-* $Revision: 10 $
+* $Revision: 11 $
* $Author: mhx $
-* $Date: 2006/07/03 21:48:33 +0200 $
+* $Date: 2006/07/21 19:21:40 +0200 $
*
********************************************************************************
*
==== //depot/perl/ext/Devel/PPPort/mktests.PL#8 (text) ====
Index: perl/ext/Devel/PPPort/mktests.PL
--- perl/ext/Devel/PPPort/mktests.PL#7~28424~ 2006-06-25 01:13:33.000000000
-0700
+++ perl/ext/Devel/PPPort/mktests.PL 2006-07-21 10:56:39.000000000 -0700
@@ -4,9 +4,9 @@
#
################################################################################
#
-# $Revision: 25 $
+# $Revision: 26 $
# $Author: mhx $
-# $Date: 2006/06/25 06:30:35 +0200 $
+# $Date: 2006/07/21 19:21:39 +0200 $
#
################################################################################
#
@@ -32,7 +32,7 @@
my @tests;
my $file;
- for $file (glob 'parts/inc/*') {
+ for $file (all_files_in_dir('parts/inc')) {
my($testfile) = $file =~ /(\w+)\.?$/; # VMS has a trailing dot
$testfile = "t/$testfile.t";
==== //depot/perl/ext/Devel/PPPort/parts/ppptools.pl#6 (text) ====
Index: perl/ext/Devel/PPPort/parts/ppptools.pl
--- perl/ext/Devel/PPPort/parts/ppptools.pl#5~26866~ 2006-01-16
10:13:28.000000000 -0800
+++ perl/ext/Devel/PPPort/parts/ppptools.pl 2006-07-21 10:56:39.000000000
-0700
@@ -4,9 +4,9 @@
#
################################################################################
#
-# $Revision: 16 $
+# $Revision: 17 $
# $Author: mhx $
-# $Date: 2006/01/14 18:07:58 +0100 $
+# $Date: 2006/07/21 19:21:40 +0200 $
#
################################################################################
#
@@ -19,6 +19,24 @@
#
################################################################################
+sub cat_file
+{
+ eval { require File::Spec };
+ return $@ ? join('/', @_) : File::Spec->catfile(@_);
+}
+
+sub all_files_in_dir
+{
+ my $dir = shift;
+ local *DIR;
+
+ opendir DIR, $dir or die "cannot open directory $dir: $!\n";
+ my @files = grep { !-d && !/^\./ } readdir DIR; # no dirs or hidden files
+ closedir DIR;
+
+ return map { cat_file($dir, $_) } @files;
+}
+
sub parse_todo
{
my $dir = shift || 'parts/todo';
@@ -26,7 +44,7 @@
my %todo;
my $todo;
- for $todo (glob "$dir/*") {
+ for $todo (all_files_in_dir($dir)) {
open TODO, $todo or die "cannot open $todo: $!\n";
my $perl = <TODO>;
chomp $perl;
==== //depot/perl/ext/Devel/PPPort/soak#17 (text) ====
Index: perl/ext/Devel/PPPort/soak
--- perl/ext/Devel/PPPort/soak#16~28507~ 2006-07-08 09:27:10.000000000
-0700
+++ perl/ext/Devel/PPPort/soak 2006-07-21 10:56:39.000000000 -0700
@@ -33,7 +33,7 @@
use List::Util qw(max);
use Config;
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09_01 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$| = 1;
my %OPT = (
End of Patch.
