develooper Front page | perl.perl5.porters | Postings from April 2003

Re: [perl #18335] UNLINK doesn't work with file size > 2Gb on Linux ReiserFS, XFS

From:
Vitaly Porotikov
Date:
April 28, 2003 01:31
Subject:
Re: [perl #18335] UNLINK doesn't work with file size > 2Gb on Linux ReiserFS, XFS
Message ID:
3EAC710C.D57B8B8@nssmb.com
 Bjoern,

  Thanks for your answer. I found the problem out. My Perl was compiled with
not definded "uselargefiles" option.

--
Yours,  Vitaly Porotikov aka vp12929 on ws22a963

 You will be the last person to buy a Chrysler.

"Ask Bjoern Hansen (via RT)" wrote:

> [vita555 - Mon Nov 11 21:00:15 2002]:
>
> > Hi!
> >
> >   Linux tkdrzbkup2.nssmb.com 2.4.18-12smp #1 SMP Fri Jun 14 15:22:49 EDT
> > 2002 i686Linux,
> > Red Hat 7.1, ReseirFS
> >
> > [root@tkdrzbkup2 staging]# dd if=/dev/zero of=big_file bs=1M count=3072
> > 3072+0 records in
> > 3072+0 records out
> >
> > [root@tkdrzbkup2 staging]# pwd
> > /export/staging
> >
> > [root@tkdrzbkup2 staging]# mount
> > /dev/rza1 on / type ext2 (rw)
> > none on /proc type proc (rw)
> > none on /dev/pts type devpts (rw,gid=5,mode=620)
> > /dev/rze1 on /export type reiserfs (rw)
> >
> > [root@tkdrzbkup2 staging]# ls -l
> > total 3148800
> > -rw-r--r--    1 root     root     3221225472 Nov 12 09:56 big_file
> >
> > [root@tkdrzbkup2 staging]# perl -e 'printf "Deleted %d files\n", unlink
> > "/export/staging/big_file"'"'
> > Deleted 0 files
> >
> > For checking:
> > [root@tkdrzbkup2 staging]# ls > a
> > [root@tkdrzbkup2 staging]# ls -l
> > total 3148804
> > -rw-r--r--    1 root     root           11 Nov 12 13:33 a
> > -rw-r--r--    1 root     root     3221225472 Nov 12 09:56 big_file
> >
> > [root@tkdrzbkup2 staging]# perl -e 'printf "Deleted %d files\n", unlink
> > "/export/staging/a"'
> > Deleted 1 files
> >
> > Command 'rm':
> >
> > [root@tkdrzbkup2 staging]# rm -f big_file
> > [root@tkdrzbkup2 staging]# ls -l
> > total 0
> >
> >   It means, unlink doesn't work with big files.
> >
> > Perl info:
> > [root@tkdrzbkup2 staging]# perl -V
> > Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
> >
>
> Please test again with 5.8.0.   Thanks!
>
>  - ask
>
> --
> ask bjoern hansen, http://askbjoernhansen.com/   !try; do();
> Develooper LLC, http://develooper.com/       $stuff->better;




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About