From cad4f8c234e16f7eb01c483017cdc5169eb68f21 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 15 Dec 2003 21:17:41 +0000
Subject: prevent MDK::Common from breaking all gi code

---
 MDK/Common.pm.pl | 3 +++
 1 file changed, 3 insertions(+)

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);
-- 
cgit v1.2.1