Re: [Gimp-developer] Perl server problem

[Chetan Dhavse <cdhavse@xxxxxxxx>]

Dear Gimpers

Thanks for such a prompt reply --- when one is lost like the way I am
There is this wonderful mailing list
[What would I have done without internet :-(]

I had posted a question about -- which is the best way to start 
gimp. [this was some time back].

I had received no reply then,
anyway this is how I start my gimp script.

[--enable-stack-trace {never|query|always} option is not available 
in with gimp 1.1.04]
_____________________________
Xvfb :20 &

DISPLAY=godavari:20
export DISPLAY

gimp --display $DISPLAY --no-interface --version

$pth/gchart $ipdir $gifdir $pattern 

_____________________________

and this is what the gchart looks like

**************************************

#!/usr/bin/perl -w

use Gimp;
use Gimp::Fu;
use Fcntl;

#Gimp::set_trace(TRACE_ALL);


$Mainpath = "/linuxfs/edp/cdhavse/chts";

require "/opt/cmie/perl5mod/miscfunc.pl";

require "$Mainpath/start";
require "$Mainpath/drfunc";
require "$Mainpath/charts_lib";

register
	(
    "Gimp_Charts",
    "Gimp_Charts", 
    "Pie and Bar Charts",
    "CDhavse",   
    "Copyright 2000", 
    "2000-06-12",
    "<Toolbox>/Xtns/Perl-Fu/Tutorial/chart",
    "*",
    [
    [PF_STRING, "ptsdir", "INPUT DIR","/tmpstore/anagram/out"],
    [PF_STRING, "gifdir", "OUTPUT DIR","/scratch/cdhavse/gifdir" ],
    [PF_STRING, "pattern", "PATTERN OF FILES TO BE PROCESSED",".*"]
    ],
    \&start
	);

exit main(); 

**************************************

This is the strace -p #### -s9999 o/p

#####################################
read(0, "", 4096)                       = 0
getpid()                                = 308
write(1, "/usr/lib/gimp/1.1/plug-ins/Perl-Server (pid:308): [E]xit, [H]alt, show [S]tack trace or [P]roceed: ", 99) = 99
read(0, "", 4096)                       = 0
getpid()                                = 308
write(1, "/usr/lib/gimp/1.1/plug-ins/Perl-Server (pid:308): [E]xit, [H]alt, show [S]tack trace or [P]roceed: ", 99) = 99
read(0, "", 4096)                       = 0
getpid()                                = 308
#####################################

Please suggest any changes that I should make.

There is this another issue about starting multiple sessions
of this script but let us sort out this problem first.


Thanks again

Chetan

On Tue, 5 Jun 2001, Marc Lehmann wrote:

> On Tue, Jun 05, 2001 at 01:01:51PM +0530, Chetan Dhavse <cdhavse@xxxxxxxx> wrote:
> > It happened again --- and here is the trace (strace) during the time when
> 
> hmm, this doesn't look like a bug in gimp (not directly, that is).
> 
> > (2 sec. generated > 15000 such lines) and Perl-Server shows 99% of CPU
> > used in the 'top'
> > 
> > write(1, "/usr/lib/gimp/1.1/plug-ins/Perl-"..., 101) = 101
> > read(0, "", 4096)                       = 0
> 
> this looks as if the perl-server outputs an error message and then tries
> to read from stdin, which is... probably connected to /dev/null or so. How
> do you start gimp & the server? could you start in interactively (e.g.
> inside a screen?) or re-run the strace with the "-s9999" switch, so we can
> see the full error message (strace clips strings).
> 
> It's especially mysterious why it is trying to _read_ from stdin, my guess
> is that this is (yet again) the endless-loop-in-libgimp bug.
> 
> You can test the latter by starting gimp with "--enable-stack-trace never".
> if the perl-server then dies immediately instead of sucking cpu time then
> this is the problem you hit.
>