From ef335932d930cc256d53cd3e3b256588fcd042b6 Mon Sep 17 00:00:00 2001
From: Patrick Meidl <pm2@sanger.ac.uk>
Date: Tue, 18 Jan 2005 15:01:57 +0000
Subject: [PATCH] linux-compatible ps options
---
misc-scripts/density_feature/vega_gene_density.pl | 2 +-
modules/Bio/EnsEMBL/Utils/ConversionSupport.pm | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/misc-scripts/density_feature/vega_gene_density.pl b/misc-scripts/density_feature/vega_gene_density.pl
index d0a8540ebe..ae64cc7e6f 100755
--- a/misc-scripts/density_feature/vega_gene_density.pl
+++ b/misc-scripts/density_feature/vega_gene_density.pl
@@ -237,7 +237,7 @@ foreach my $object ($big_chr, $small_chr) {
print STDERR join(",", map { $num{$gene_types{$_}} || 0 }
sort keys %gene_types);
print STDERR " | ";
- print STDERR "Mem: " . `ps $$ -o vsz |tail -1`;
+ print STDERR "Mem: " . `ps -p $$ -o vsz |tail -1`;
}
diff --git a/modules/Bio/EnsEMBL/Utils/ConversionSupport.pm b/modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
index f8585eec5b..d513136117 100644
--- a/modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
+++ b/modules/Bio/EnsEMBL/Utils/ConversionSupport.pm
@@ -730,7 +730,7 @@ sub finish_log {
sub date_and_mem {
my $date = strftime "%Y-%m-%d %T", localtime;
- my $mem = `ps $$ -o vsz |tail -1`;
+ my $mem = `ps -p $$ -o vsz |tail -1`;
chomp $mem;
return "[$date, mem $mem]";
}
@@ -761,7 +761,7 @@ sub date {
=cut
sub mem {
- my $mem = `ps $$ -o vsz |tail -1`;
+ my $mem = `ps -p $$ -o vsz |tail -1`;
chomp $mem;
return $mem;
}
--
GitLab