Update example script to use perl Data::Dumper
authorMark Wong <mark@2ndQuadrant.com>
Wed, 25 Jul 2018 16:56:27 +0000 (16:56 +0000)
committerMark Wong <markwkm@gmail.com>
Wed, 25 Jul 2018 22:17:29 +0000 (15:17 -0700)
contrib/ps-util.pl

index c78ce97a75981507702e2ca3c93499316a4c7700..3038e85c6f410895e43a281da75d9160e8ce7d95 100755 (executable)
@@ -6,7 +6,7 @@ use warnings;
 use Number::Bytes::Human qw(format_bytes);
 use Getopt::Long;
 
-use Data::Dumper::Simple;
+use Data::Dumper;
 $Data::Dumper::Indent  = 1;
 
 my ($db, $list, $pid, $snap_1, $snap_2);