diff --git a/perl-xCAT/xCAT/InstUtils.pm b/perl-xCAT/xCAT/InstUtils.pm
index 0003b9184..5f7a86ba6 100644
--- a/perl-xCAT/xCAT/InstUtils.pm
+++ b/perl-xCAT/xCAT/InstUtils.pm
@@ -29,7 +29,7 @@ require xCAT::Schema;
 use xCAT::NetworkUtils;
 
 #require Data::Dumper;
-use Data::Dumper;
+#use Data::Dumper;
 require xCAT::NodeRange;
 require DBI;
 
diff --git a/perl-xCAT/xCAT/MacMap.pm b/perl-xCAT/xCAT/MacMap.pm
index a339ac402..28d424076 100644
--- a/perl-xCAT/xCAT/MacMap.pm
+++ b/perl-xCAT/xCAT/MacMap.pm
@@ -8,7 +8,7 @@ use xCAT::MsgUtils;
 use IO::Select;
 use IO::Handle;
 use Sys::Syslog;
-use Data::Dumper;
+#use Data::Dumper;
 use POSIX qw/WNOHANG/;
 use SNMP;
 my %cisco_vlans; #Special hash structure to reflect discovered VLANS on Cisco equip
diff --git a/perl-xCAT/xCAT/NodeRange.pm b/perl-xCAT/xCAT/NodeRange.pm
index a05a3bbc9..0f4110361 100644
--- a/perl-xCAT/xCAT/NodeRange.pm
+++ b/perl-xCAT/xCAT/NodeRange.pm
@@ -486,7 +486,7 @@ sub abbreviate_noderange {
         push @{$sizedgroups{scalar @{$grouphash{$group}}}},$group;
     }
     my $node;
-    use Data::Dumper;
+    #use Data::Dumper;
     #print Dumper(\%sizedgroups);
     foreach (reverse sort {$a <=> $b} keys %sizedgroups) {
         GROUP: foreach $group (@{$sizedgroups{$_}}) {
diff --git a/perl-xCAT/xCAT/SINV.pm b/perl-xCAT/xCAT/SINV.pm
index 1f3418fc6..a7a4fc398 100644
--- a/perl-xCAT/xCAT/SINV.pm
+++ b/perl-xCAT/xCAT/SINV.pm
@@ -27,7 +27,7 @@ use xCAT::NodeRange qw/noderange abbreviate_noderange/;
 use xCAT::Utils;
 use Fcntl qw(:flock);
 use Getopt::Long;
-use Data::Dumper;
+#use Data::Dumper;
 my $tempfile;
 my $errored = 0;
 my @dshresult;
diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 31294ece9..20c308a45 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -36,7 +36,7 @@ use xCAT::MsgUtils;
 use Sys::Syslog;
 use Storable qw/freeze thaw/;
 use IO::Socket;
-use Data::Dumper;
+#use Data::Dumper;
 use POSIX qw/WNOHANG/;
 use Time::HiRes qw (sleep);
 use Safe;
@@ -1889,7 +1889,7 @@ sub setNodesAttribs {
        my $delimitedcol = &delimitcol($col);	
        push @sqlorderedcols, $delimitedcol; 
     }
-    use Data::Dumper;
+    #use Data::Dumper;
     my $nodesatatime = 999; #the update case statement will consume '?' of which we are allowed 999 in the most restricted DB we support
     #ostensibly, we could do 999 at a time for the select statement, and subsequently limit the update aggregation only
     #to get fewer sql statements, but the code is probably more complex than most people want to read
diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index b759672f3..0b1e7240b 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -30,7 +30,7 @@ use warnings "all";
 require xCAT::InstUtils;
 require xCAT::NetworkUtils;
 require xCAT::Schema;
-require Data::Dumper;
+#require Data::Dumper;
 require xCAT::NodeRange;
 require DBI;
 
@@ -466,11 +466,11 @@ sub Version
     my $version = shift;
     if ($version eq 'short')
     {
-		$version = ''    #XCATVERSIONSUBHERE ;
+		$version = ''    . '2.6' ;
     }
     else
     {
-		$version = 'Version '    #XCATVERSIONSUBHERE #XCATSVNBUILDSUBHERE ;
+		$version = 'Version '    . '2.6' . ' (svn r9267, built Mon Apr 11 09:33:21 EDT 2011)' ;
     }
     return $version;