/usr/bin/parcimonie-applet is in parcimonie 0.8-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
=head1 NAME
parcimonie-applet - GNOME monitoring applet for parcimonie
=cut
use strict;
use warnings;
use 5.10.0;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Carp;
use Try::Tiny;
my $mu;
sub record_memory_usage { 1 }
sub report_memory_usage { 1 }
BEGIN {
if (exists $ENV{REPORT_MEMORY_USAGE}
&& defined $ENV{REPORT_MEMORY_USAGE}
&& $ENV{REPORT_MEMORY_USAGE}) {
try {
require Memory::Usage;
} catch {
croak "Memory::Usage is needed when REPORT_MEMORY_USAGE is set."
};
$mu = Memory::Usage->new();
no warnings 'redefine';
*record_memory_usage = sub { $mu->record(shift) };
*report_memory_usage = sub { $mu->dump() };
}
}
BEGIN {
record_memory_usage('before loading App::Parcimonie::Applet');
require App::Parcimonie::Applet;
App::Parcimonie::Applet->import();
record_memory_usage('after loading App::Parcimonie::Applet');
}
$SIG{'INT'} = $SIG{'TERM'} = sub { report_memory_usage(); exit(0); };
$SIG{'USR1'} = sub { report_memory_usage(); };
App::Parcimonie::Applet->new->run;
report_memory_usage();
|