possible mem leak ?

[arne]

Hi

below is my rather short script that just takes STDIN and logs it to syslog

if I attach this program to apache as my access-log (I know why i do it like
this), after a few days, the process mem-size is 132Meg and above, which is
too big for such a small program.

have i done something wrong? Should I use references somewhere?

*cut*
#!/usr/bin/perl

use strict;

#this is a funny construction, could have said <1 or > 2
if (@ARGV != 1 && @ARGV != 2) {
print "usage: $0 <servicename> <prefix>\n";
exit(1);
}

my $prefix="";
if (@ARGV==2) {
$prefix = $ARGV[1].": ";
}

use Unix::Syslog qwmacros :subs);

openlog($ARGV[0], LOG_PID, LOG_LOCAL2);
while (<STDIN>) {
syslog(LOG_INFO, $prefix.$_);
}
closelog();
*cut*

 

[Brian McCauley]

if I attach this program to apache as my access-log (I know why i do it like
this), after a few days, the process mem-size is 132Meg and above, which is
too big for such a small program.

have i done something wrong? Should I use references somewhere?

I doubt that anything you have done can be blamed.

use Unix::Syslog qwmacros :subs);

openlog($ARGV[0], LOG_PID, LOG_LOCAL2);
while (<STDIN>) {
syslog(LOG_INFO, $prefix.$_);
}
closelog();

What version of Perl are you using? Older versions tend to leak more.

Another possibility is that the leak is in Unix::Syslog.

Note you are not calling syslog correctly - is should be

syslog(LOG_INFO, "%s%s", $prefix, $_);

I doubt, however, this could explain your leak.

 

[arne]

if I attach this program to apache as my access-log (I know why i do it

like this), after a few days, the process mem-size is 132Meg and above,
which is too big for such a small program.

have i done something wrong? Should I use references somewhere?

I doubt that anything you have done can be blamed.

use Unix::Syslog qwmacros :subs);

openlog($ARGV[0], LOG_PID, LOG_LOCAL2);
while (<STDIN>) {
syslog(LOG_INFO, $prefix.$_);
}
closelog();

What version of Perl are you using? Older versions tend to leak more.

it is 5.6.0, maybe it's time to upgrade that version

Another possibility is that the leak is in Unix::Syslog.

Note you are not calling syslog correctly - is should be

syslog(LOG_INFO, "%s%s", $prefix, $_);

I doubt, however, this could explain your leak.

thx for the notice, will fix it soon (right is right )

arne

 

[Ben Morrow]

below is my rather short script that just takes STDIN and logs it to syslog

if I attach this program to apache as my access-log (I know why i do it like
this), after a few days, the process mem-size is 132Meg and above, which is
too big for such a small program.

Use logger(1) instead.

Ben