389-ds-base/glibmm24: conflicting perl provides

https://bugzilla.redhat.com/show_bug.cgi?id=523476
Resolves: bug 523476
Bug Description: 389-ds-base/glibmm24: conflicting perl provides
Reviewed by: nhosoi (Thanks!)
Files: see diff
Fix Description: Rename "Util" to "DSUtil"
Platforms tested: Fedora 11 x86_64
Flag Day: no
Doc impact: no

12 files changed, 18 insertions, 19 deletions

diff --git a/ldap/admin/src/scripts/DSCreate.pm.in b/ldap/admin/src/scripts/DSCreate.pm.in
index a7ab5fae..f351a21b 100644
--- a/ldap/admin/src/scripts/DSCreate.pm.in
+++ b/ldap/admin/src/scripts/DSCreate.pm.in
@@ -44,7 +44,7 @@
 ##########################
 
 package DSCreate;
-use Util;
+use DSUtil;
 use Inf;
 use FileConn;
 
@@ -198,7 +198,7 @@ sub changeOwnerMode {
 
 sub makeDSDirs {
     my $inf = shift;
-    my $verbose = ($Util::debuglevel > 0);
+    my $verbose = ($DSUtil::debuglevel > 0);
     my $mode = getMode($inf, 7);
     my @errs;
 
diff --git a/ldap/admin/src/scripts/DSDialogs.pm b/ldap/admin/src/scripts/DSDialogs.pm
index 22fe512a..6583ff9e 100644
--- a/ldap/admin/src/scripts/DSDialogs.pm
+++ b/ldap/admin/src/scripts/DSDialogs.pm
@@ -44,7 +44,7 @@ use Net::Domain qw(hostname hostfqdn);
 use DialogManager;
 use Setup;
 use Dialog;
-use Util;
+use DSUtil;
 
 my $dsport = new Dialog (
     $TYPICAL,
diff --git a/ldap/admin/src/scripts/DSMigration.pm.in b/ldap/admin/src/scripts/DSMigration.pm.in
index c661d2c1..c0a7614d 100644
--- a/ldap/admin/src/scripts/DSMigration.pm.in
+++ b/ldap/admin/src/scripts/DSMigration.pm.in
@@ -48,7 +48,7 @@
 
 package DSMigration;
 use Migration;
-use Util;
+use DSUtil;
 use Inf;
 use DSCreate;
 
@@ -75,7 +75,6 @@ use Exporter;
 use strict;
 
 use SetupLog;
-use Util;
 
 # these are the attributes for which we will always use
 # the new value, or which do not apply anymore
diff --git a/ldap/admin/src/scripts/DSUpdate.pm.in b/ldap/admin/src/scripts/DSUpdate.pm.in
index 23f33899..20bb40d1 100644
--- a/ldap/admin/src/scripts/DSUpdate.pm.in
+++ b/ldap/admin/src/scripts/DSUpdate.pm.in
@@ -44,7 +44,7 @@
 ##########################
 
 package DSUpdate;
-use Util;
+use DSUtil;
 use Inf;
 use FileConn;
 use DSCreate qw(setDefaults createInstanceScripts);
diff --git a/ldap/admin/src/scripts/DSUpdateDialogs.pm b/ldap/admin/src/scripts/DSUpdateDialogs.pm
index 32185b88..18e85c39 100644
--- a/ldap/admin/src/scripts/DSUpdateDialogs.pm
+++ b/ldap/admin/src/scripts/DSUpdateDialogs.pm
@@ -43,7 +43,7 @@ use strict;
 use DialogManager;
 use Setup;
 use Dialog;
-use Util;
+use DSUtil;
 use FileConn;
 
 my @updateadmindialogs;
diff --git a/ldap/admin/src/scripts/Util.pm.in b/ldap/admin/src/scripts/DSUtil.pm.in
index 29f268f5..b92efa40 100644
--- a/ldap/admin/src/scripts/Util.pm.in
+++ b/ldap/admin/src/scripts/DSUtil.pm.in
@@ -36,7 +36,7 @@
 # END COPYRIGHT BLOCK
 #
 
-package Util;
+package DSUtil;
 
 use Mozilla::LDAP::Conn;
 use Mozilla::LDAP::Utils qw(normalizeDN);
@@ -64,13 +64,13 @@ use File::Path qw(rmtree);
 
 use Carp;
 
-$Util::debuglevel = 0;
+$DSUtil::debuglevel = 0;
 # use like this:
 # debug(3, "message");
 # this will only print "message" if $debuglevel is 3 or higher (-ddd on the command line)
 sub debug {
     my ($level, @rest) = @_;
-    if ($level <= $Util::debuglevel) {
+    if ($level <= $DSUtil::debuglevel) {
         print STDERR "+" x $level, @rest;
     }
 }
diff --git a/ldap/admin/src/scripts/FileConn.pm b/ldap/admin/src/scripts/FileConn.pm
index bead2a48..ac6055d4 100644
--- a/ldap/admin/src/scripts/FileConn.pm
+++ b/ldap/admin/src/scripts/FileConn.pm
@@ -46,7 +46,7 @@ use Mozilla::LDAP::API qw(:constant ldap_explode_dn ldap_err2string); # Direct a
 use Mozilla::LDAP::Utils qw(normalizeDN);
 use Mozilla::LDAP::LDIF;
 
-use Util qw(debug);
+use DSUtil qw(debug);
 
 require    Exporter;
 @ISA       = qw(Exporter Mozilla::LDAP::Conn);
diff --git a/ldap/admin/src/scripts/Migration.pm.in b/ldap/admin/src/scripts/Migration.pm.in
index 65ea1acf..44613a80 100644
--- a/ldap/admin/src/scripts/Migration.pm.in
+++ b/ldap/admin/src/scripts/Migration.pm.in
@@ -71,7 +71,7 @@ use Getopt::Long;
 use File::Temp qw(tempfile tempdir);
 
 use SetupLog;
-use Util;
+use DSUtil;
 
 # process command line options
 Getopt::Long::Configure(qw(bundling)); # bundling allows -ddddd
@@ -184,7 +184,7 @@ sub init {
 
     GetOptions('help|h|?' => sub { VersionMessage(); HelpMessage(); exit 0 },
                'version|v' => sub { VersionMessage(); exit 0 },
-               'debug|d+' => \$Util::debuglevel,
+               'debug|d+' => \$DSUtil::debuglevel,
                'silent|s' => \$silent,
                'file|f=s' => \$inffile,
                'keepcache|k' => \$keep,
diff --git a/ldap/admin/src/scripts/Setup.pm.in b/ldap/admin/src/scripts/Setup.pm.in
index 5927d40b..021a99c7 100644
--- a/ldap/admin/src/scripts/Setup.pm.in
+++ b/ldap/admin/src/scripts/Setup.pm.in
@@ -69,7 +69,7 @@ use Getopt::Long;
 use File::Temp qw(tempfile tempdir);
 
 use SetupLog;
-use Util;
+use DSUtil;
 use Inf;
 
 use strict;
@@ -130,7 +130,7 @@ sub init {
 
     GetOptions('help|h|?' => sub { VersionMessage(); HelpMessage(); exit 0 },
                'version|v' => sub { VersionMessage(); exit 0 },
-               'debug|d+' => \$Util::debuglevel,
+               'debug|d+' => \$DSUtil::debuglevel,
                'silent|s' => \$silent,
                'file|f=s' => \$inffile,
                'keepcache|k' => \$keep,
diff --git a/ldap/admin/src/scripts/SetupDialogs.pm.in b/ldap/admin/src/scripts/SetupDialogs.pm.in
index 29d327a9..e925c4b2 100644
--- a/ldap/admin/src/scripts/SetupDialogs.pm.in
+++ b/ldap/admin/src/scripts/SetupDialogs.pm.in
@@ -44,7 +44,7 @@ use DialogManager;
 use Setup;
 use Dialog;
 use Net::Domain qw(hostfqdn);
-use Util;
+use DSUtil;
 
 my $welcome = new DialogYesNo (
     $EXPRESS,
diff --git a/ldap/admin/src/scripts/remove-ds.pl.in b/ldap/admin/src/scripts/remove-ds.pl.in
index d82a1816..1d10a91a 100755
--- a/ldap/admin/src/scripts/remove-ds.pl.in
+++ b/ldap/admin/src/scripts/remove-ds.pl.in
@@ -23,7 +23,7 @@ use strict;
 
 use File::Basename;
 use File::Path;
-use Util;
+use DSUtil;
 use Resource;
 use DSCreate qw(removeDSInstance);
 
@@ -48,7 +48,7 @@ while ($i <= $#ARGV) {
         $i++;
         $instname = $ARGV[$i];
     } elsif ("$ARGV[$i]" eq "-d") {
-        $Util::debuglevel++;
+        $DSUtil::debuglevel++;
     } else {
         &usage; exit(1);
     }
diff --git a/ldap/admin/src/scripts/setup-ds.pl.in b/ldap/admin/src/scripts/setup-ds.pl.in
index aad6bfc8..266d3965 100644
--- a/ldap/admin/src/scripts/setup-ds.pl.in
+++ b/ldap/admin/src/scripts/setup-ds.pl.in
@@ -46,7 +46,7 @@ use SetupLog;
 use Inf;
 use Resource;
 use DialogManager;
-use Util;
+use DSUtil;
 use DSCreate;
 use DSUpdate;