From owner-freebsd-current  Sun Dec 12 20:27:56 1999
Delivered-To: freebsd-current@freebsd.org
Received: from everyhost.com (everyhost.com [63.71.213.201])
	by hub.freebsd.org (Postfix) with SMTP id C3DF815450
	for <current@freebsd.org>; Sun, 12 Dec 1999 20:27:46 -0800 (PST)
	(envelope-from mah@everyhost.com)
Received: (qmail 35701 invoked by uid 1000); 13 Dec 1999 04:26:36 -0000
Date: 13 Dec 1999 04:26:36 -0000
Message-ID: <19991213042636.35700.qmail@everyhost.com>
From: mah@everyhost.com
To: perlbug@perl.com
Subject: Segfault on $f->print for IO::File
Cc: current@freebsd.org
Sender: owner-freebsd-current@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.ORG

This is a bug report for perl from mah@everybody.org,
generated with the help of perlbug 1.26 running under perl 5.00503.


-----------------------------------------------------------------
[Please enter your report here]

The following segfaults on the "setpos" line.  It only
does this with the "print" statement included.

--- cut ---
#!/usr/bin/perl -w

use strict;
use IO::File;

my $f = IO::File->new(">new.txt");
$f->print;
$f->setpos(0);
--- cut ---


[Please do not change anything below this line]
-----------------------------------------------------------------

---
Site configuration information for perl 5.00503:

Configured by markm at $Date: 1999/05/05 19:42:40 $.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=freebsd, osvers=4.0-current, archname=i386-freebsd
    uname='freebsd freefall.freebsd.org 4.0-current freebsd 4.0-current #0: $Date: 1999/05/05 19:42:40 $'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='undef', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=undef, usevfork=true
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags ='-Wl,-E'
    libpth=/usr/lib
    libs=-lm -lc -lcrypt
    libc=/usr/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so.3
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-DPIC -fpic', lddlflags='-shared'

Locally applied patches:
    

---
@INC for perl 5.00503:
    /usr/libdata/perl/5.00503/mach
    /usr/libdata/perl/5.00503
    /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
    /usr/local/lib/perl5/site_perl/5.005
    .

---
Environment for perl 5.00503:
    HOME=/home/mah
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/bin:/usr/bin:/usr/local/bin:/usr/games:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/local/pgsql/bin:/etc:/usr/etc:/usr/freeware/bin
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/bash


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-current" in the body of the message