add -n

Proc-ProcessTable-piddler/bin/piddler

@@ -11,6 +11,7 @@ sub version{
 
 sub help{
         print '
+
 ';
 	}
 
@@ -22,6 +23,7 @@ my $pipe=0;
 my $unix=0;
 my $vregroot=0;
 my $dont_dedup=0;
+my $dont_resolv=0;
 
 # get the commandline options
 Getopt::Long::Configure ('no_ignore_case');
@@ -32,13 +34,13 @@ GetOptions(
 		   'v' => \$version,
 		   'version' => \$version,
 		   't' => \$txt,
-		   'P' => \$pipe,
+		   'p' => \$pipe,
 		   'u' => \$unix,
 		   'r' => \$vregroot,
 		   'd' => \$dont_dedup,
+		   'n' => \$dont_resolv,
 		   );
 
-
 # print the version info if requested
 if ( $version ){
 	&version;
@@ -71,6 +73,7 @@ my $ppp=Proc::ProcessTable::piddler->new(
 										  pipe=>$pipe,
 										  vregroot=>$vregroot,
 										  dont_dedup=>$dont_dedup,
+										  dont_resolv=>$dont_resolv,
 										  }
 										 );
 

Proc-ProcessTable-piddler/lib/Proc/ProcessTable/piddler.pm

@@ -106,11 +106,12 @@ sub new{
 				unix=>0,
 				vregroot=>0,
 				dont_dedup=>0,
+				dont_resolv=>0,
 				};
     bless $self;
 
 	my @arg_feed=(
-				  'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup'
+				  'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup', 'dont_resolv'
 				   );
 
 	foreach my $feed ( @arg_feed ){
@@ -594,9 +595,13 @@ sub run{
 							 }
 					  }
 					 );
+		my $ptr=1;
+		if ( $self->{dont_resolv} ){
+			$ptr=0;
+		}
 		my $ncnetstat=Net::Connection::ncnetstat->new(
 													  {
-													   ptr=>1,
+													   ptr=>$ptr,
 													   command=>0,
 													   command_long=>0,
 													   wchan=>0,