You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2005/03/15 17:17:19 UTC
svn commit: r157558 - in perl/modperl/branches/apache2-rename-unstable/util:
apr_arg_check.pl apr_pool_check.pl cvsize.pl source_stats.pl xs_check.pl
Author: geoff
Date: Tue Mar 15 08:17:17 2005
New Revision: 157558
URL: http://svn.apache.org/viewcvs?view=rev&rev=157558
Log:
port util/ over
Modified:
perl/modperl/branches/apache2-rename-unstable/util/apr_arg_check.pl
perl/modperl/branches/apache2-rename-unstable/util/apr_pool_check.pl
perl/modperl/branches/apache2-rename-unstable/util/cvsize.pl
perl/modperl/branches/apache2-rename-unstable/util/source_stats.pl
perl/modperl/branches/apache2-rename-unstable/util/xs_check.pl
Modified: perl/modperl/branches/apache2-rename-unstable/util/apr_arg_check.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/util/apr_arg_check.pl?view=diff&r1=157557&r2=157558
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/util/apr_arg_check.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/util/apr_arg_check.pl Tue Mar 15 08:17:17 2005
@@ -3,13 +3,13 @@
use lib qw(lib);
use strict;
-use Apache::FunctionTable ();
+use Apache2::FunctionTable ();
#utility for checking apr_ argument conventions
my $tx = '_t\s*\*+';
-for my $entry (@$Apache::FunctionTable) {
+for my $entry (@$Apache2::FunctionTable) {
my $name = $entry->{name};
my $args = $entry->{args};
next unless @$args and $name =~ /^apr_/;
Modified: perl/modperl/branches/apache2-rename-unstable/util/apr_pool_check.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/util/apr_pool_check.pl?view=diff&r1=157557&r2=157558
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/util/apr_pool_check.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/util/apr_pool_check.pl Tue Mar 15 08:17:17 2005
@@ -5,7 +5,7 @@
use lib qw(lib);
use strict;
-use Apache::SourceTables ();
+use Apache2::SourceTables ();
my($functions, @nopool);
@@ -16,7 +16,7 @@
apr_procattr_t apr_xlate_t apr_dbm_t apr_xml_parser
};
-for my $entry (@$Apache::FunctionTable) {
+for my $entry (@$Apache2::FunctionTable) {
next unless $entry->{name} =~ /^apr_/;
$functions++;
@@ -44,7 +44,7 @@
$type =~ s/\s+\*+$//;
$type =~ s/^(const|struct)\s+//g;
- if (my $elts = $Apache::StructureTable{$type}) {
+ if (my $elts = $Apache2::StructureTable{$type}) {
return 1 if $private{$type};
for my $e (@$elts) {
Modified: perl/modperl/branches/apache2-rename-unstable/util/cvsize.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/util/cvsize.pl?view=diff&r1=157557&r2=157558
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/util/cvsize.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/util/cvsize.pl Tue Mar 15 08:17:17 2005
@@ -5,20 +5,20 @@
#see pod/modperl_sizeof.pod
use strict;
-use Apache::FunctionTable ();
-use Apache::StructureTable ();
+use Apache2::FunctionTable ();
+use Apache2::StructureTable ();
use constant sizeofCV => 254;
my $size = 0;
my $subs = 0;
-for my $entry (@$Apache::FunctionTable) {
+for my $entry (@$Apache2::FunctionTable) {
$size += sizeofCV + ((length($entry->{name}) + 1) * 2);
$subs++;
}
-for my $entry (@$Apache::StructureTable) {
+for my $entry (@$Apache2::StructureTable) {
my $elts = $entry->{elts} || [];
next unless @$elts;
Modified: perl/modperl/branches/apache2-rename-unstable/util/source_stats.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/util/source_stats.pl?view=diff&r1=157557&r2=157558
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/util/source_stats.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/util/source_stats.pl Tue Mar 15 08:17:17 2005
@@ -3,12 +3,12 @@
use lib qw(lib);
use strict;
-use Apache::FunctionTable ();
-use Apache::StructureTable ();
+use Apache2::FunctionTable ();
+use Apache2::StructureTable ();
my %stats;
-for my $entry (@$Apache::FunctionTable) {
+for my $entry (@$Apache2::FunctionTable) {
unless ($entry->{name} =~ /^(ap|apr)_/) {
#print "found alien function $entry->{name}\n";
next;
@@ -17,7 +17,7 @@
$stats{functions}->{$1}++;
}
-for my $entry (@$Apache::StructureTable) {
+for my $entry (@$Apache2::StructureTable) {
my $elts = $entry->{elts};
my $type = $entry->{type};
Modified: perl/modperl/branches/apache2-rename-unstable/util/xs_check.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/util/xs_check.pl?view=diff&r1=157557&r2=157558
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/util/xs_check.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/util/xs_check.pl Tue Mar 15 08:17:17 2005
@@ -50,7 +50,7 @@
my $function_map = $check{functions};
my @missing;
-for my $entry (@$Apache::FunctionTable) {
+for my $entry (@$Apache2::FunctionTable) {
my $func;
my $name = $entry->{name};
next if $unmapped{$name};