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

[geoff]

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};