[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
20030422: upgrade of ldm.meteo.psu.edu to 6.0.10
- Subject: 20030422: upgrade of ldm.meteo.psu.edu to 6.0.10
- Date: Tue, 22 Apr 2003 14:59:28 -0600
Art,
>Date: Tue, 22 Apr 2003 15:30:40 -0400 (EDT)
>From: "Arthur A. Person" <address@hidden>
>Organization: Penn State
>To: Steve Emmerson <address@hidden>
>Subject: Re: 20030422: upgrade of ldm.meteo.psu.edu to 6.0.10
The above message contained the following:
> I get:
>
> [ldm@ldm data]$ ls -l
> total 7385916
> -rw-rw-r-- 1 ldm ldmsys 0 Apr 22 11:42 junk.dat
> -rw-rw-r-- 1 ldm ldmsys 4273569792 Mar 24 09:05 ldm.pq
> -rw-rw-r-- 1 ldm ldmsys 3282219008 Sep 25 2002 ldm.pq.old
>
> [ldm@ldm data]$ perl -v
>
> This is perl, v5.6.1 built for i386-linux
>
> if (! -f "ldm.pq") {
> print "no\n";
> } else {
> print "yes\n";
> }
> no
We think that the problem is that your perl utility wasn't compiled with
the same large-file-support flags that were used in building the LDM
(-D_FILE_OFFSET_BITS=64, -D_LARGEFILE_SOURCE) and that, consequently, the
perl utility is misinterpreting a file-status structure.
One solution would, perhaps, be to rebuilt your perl utility with
large-file support.
An alternative would be to replace occurences of "-f $pq_path" in the
ldmadmin script, with something like the following:
system("ls $pq_path > /dev/null");
if ($?) {
# file doesn't exist
} else {
# file exists
}
I'm going to put this in the next release.
> Arthur A. Person
> Research Assistant, System Administrator
> Penn State Department of Meteorology
> email: address@hidden, phone: 814-863-1563
Regards,
Steve Emmerson