diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-15 21:17:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-15 21:17:41 +0000 |
| commit | cad4f8c234e16f7eb01c483017cdc5169eb68f21 (patch) | |
| tree | 394143a6789d5ee5ce0382787f362955544addd8 /MDK/Common.pm.pl | |
| parent | 5fbb34c76f4ab00cd06d337468807e21d7bef91a (diff) | |
| download | perl-MDK-Common-cad4f8c234e16f7eb01c483017cdc5169eb68f21.tar perl-MDK-Common-cad4f8c234e16f7eb01c483017cdc5169eb68f21.tar.gz perl-MDK-Common-cad4f8c234e16f7eb01c483017cdc5169eb68f21.tar.bz2 perl-MDK-Common-cad4f8c234e16f7eb01c483017cdc5169eb68f21.tar.xz perl-MDK-Common-cad4f8c234e16f7eb01c483017cdc5169eb68f21.zip | |
prevent MDK::Common from breaking all gi code
Diffstat (limited to 'MDK/Common.pm.pl')
| -rw-r--r-- | MDK/Common.pm.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index 0dbddd2..e987c90 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -36,7 +36,9 @@ 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/; @@ -57,6 +59,7 @@ 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); |