[Rt-commit] r19554 - in rt/3.999/trunk: .

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu May 7 03:34:04 EDT 2009


Author: sunnavy
Date: Thu May  7 03:34:02 2009
New Revision: 19554

Modified:
   rt/3.999/trunk/   (props changed)
   rt/3.999/trunk/sbin/rt-update-config

Log:
 r20896 at sunnavys-mb (orig r19343):  sunnavy | 2009-04-24 20:41:07 +0800
 Data::Dumper can only show values too, though with "\n" appended


Modified: rt/3.999/trunk/sbin/rt-update-config
==============================================================================
--- rt/3.999/trunk/sbin/rt-update-config	(original)
+++ rt/3.999/trunk/sbin/rt-update-config	Thu May  7 03:34:02 2009
@@ -55,7 +55,8 @@
 }
 
 use Getopt::Long;
-use Data::Dump qw/dump/;
+use Data::Dumper;
+local $Data::Dumper::Terse = 1; # to show only values
 
 my %args;
 die "unknown option"
@@ -123,15 +124,16 @@
 
     if ( $args{show} ) {
         for my $name ( sort keys %map ) {
-            my $value = dump( $map{$name} );
-            print "$name: $value\n";
+            my $value = Dumper( $map{$name} );
+            print "$name: $value";
         }
     }
     else {
         my $to_be_edited = '';
         for my $name ( sort keys %map ) {
             $to_be_edited .= $doc{$name} || '';
-            my $value = dump( $map{$name} );
+            my $value = Dumper( $map{$name} );
+            chomp $value;
             $to_be_edited .= "set( $name => $value );\n";
             $to_be_edited .= "\n"
               if $doc{$name};    # add an extra blank line to ease eyes


More information about the Rt-commit mailing list