diff options
| -rw-r--r-- | MDK/.cvsignore | 1 | ||||
| -rw-r--r-- | MDK/Common.pm.pl (renamed from MDK/Common.pm) | 22 |
2 files changed, 20 insertions, 3 deletions
diff --git a/MDK/.cvsignore b/MDK/.cvsignore new file mode 100644 index 0000000..d74cfd1 --- /dev/null +++ b/MDK/.cvsignore @@ -0,0 +1 @@ +Common.pm diff --git a/MDK/Common.pm b/MDK/Common.pm.pl index 5819b01..328ace6 100644 --- a/MDK/Common.pm +++ b/MDK/Common.pm.pl @@ -1,3 +1,6 @@ + + +print <<'EOF'; =head1 NAME MDK::Common - miscellaneous functions @@ -27,11 +30,23 @@ L<MDK::Common::String>, L<MDK::Common::System>, L<MDK::Common::Various>. -=head1 EXPORTS +EOF + +foreach my $f (<MDK/Common/*.pm>) { + (my $pkg = $f) =~ s|/|::|g; + open F, $f or die "can't open file $f"; + while (<F>) { + if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) { + s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/; + s/^=head1 OTHER/=head1 OTHER in $pkg/; + s/^=back/=back\n/; + print; + } + } +} -C<MDK::Common> exports the functions in the package mentioned above. See their -manpage for more. +print <<'EOF'; =head1 COPYRIGHT Copyright (c) 2001 MandrakeSoft <pixel@mandrakesoft.com>. All rights reserved. @@ -58,3 +73,4 @@ use vars qw(@ISA @EXPORT $VERSION); #); $VERSION = "1.0"; 1; +EOF |