diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 13:23:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 13:23:29 +0000 |
| commit | b6d38166a3bfd1cbc613b074b93a2475fdef1eaf (patch) | |
| tree | db488c58cc909564b4c8c79a0748326b305cf5fc | |
| parent | cad4f8c234e16f7eb01c483017cdc5169eb68f21 (diff) | |
| download | perl-MDK-Common-b6d38166a3bfd1cbc613b074b93a2475fdef1eaf.tar perl-MDK-Common-b6d38166a3bfd1cbc613b074b93a2475fdef1eaf.tar.gz perl-MDK-Common-b6d38166a3bfd1cbc613b074b93a2475fdef1eaf.tar.bz2 perl-MDK-Common-b6d38166a3bfd1cbc613b074b93a2475fdef1eaf.tar.xz perl-MDK-Common-b6d38166a3bfd1cbc613b074b93a2475fdef1eaf.zip | |
titi sucks? yes! reverting...
| -rw-r--r-- | MDK/Common.pm.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index e987c90..0dbddd2 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -36,9 +36,7 @@ EOF foreach my $f (<MDK/Common/*.pm>) { (my $pkg = $f) =~ s|/|::|g; - (my $pm = $pkg) =~ s/.pm$//g; open F, $f or die "can't open file $f"; - print "=cut\npackage MDK::Common::$pm;\n"; while (<F>) { if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) { s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/; @@ -59,7 +57,6 @@ modify it under the same terms as Perl itself. =cut -package MDK::Common; use MDK::Common::DataStructure qw(:all); use MDK::Common::File qw(:all); |