Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!nec-tyo!tyo1-nec!newssv1-nec!bs1.fc.nec!akyu.bsd.tnes.nec.co.jp!rifu.bsd.tnes.nec.co.jp!yos
From: yos@rifu.bsd.tnes.nec.co.jp (Yoshihiro Kudo)
Subject: Segmentation fault
Sender: news@akyu.bsd.tnes.nec.co.jp
Message-ID: <CxwE7y.37A@akyu.bsd.tnes.nec.co.jp>
Date: Wed, 19 Oct 1994 02:14:22 GMT
Organization: NEC Software Tohoku, Ltd. Sendai, Japan
Lines: 34
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:284
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=284&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B9)F#(B@NEC$B%=%U%H%&%'%"ElKL$G$9!#(B

perl-4.036$B$K$F0J2<$N%W%m%0%i%`$r<B9T$9$k$H(B

Bad free() ignored at ptr.pl line 10.
Bad free() ignored at ptr.pl line 10.
Segmentation fault (core dumped)

$B$H$J$C$F$7$^$$$^$9!#(Bfunc1$B$N8F$S=P$7$r(B1$B2s$@$1$K$9$k$H(B($B8+$?L\$O(B)$B@5>o$K(B
$B=*N;$9$k$s$G$9$,!"$3$l$O%W%m%0%i%`$N$I$3$,$$$1$J$$$+$i$J$s$7$g$&$+(B?
$BJ,$+$kJ}$,$$$i$C$7$c$$$^$7$?$i65$($F2<$5$$!#(B

----- begin: ptr.pl -----
#!/usr/local/bin/perl

&func1;
&func1;

sub func1 {
local(*ptr);

*ptr = *GLOBALDATA;
&func2(*ptr);
}
sub func2 {
local(*ptr) = @_;

@ptr = 1 .. 10;
}
__END__
-- 

      $B9)F#(B $BgP90(B
       yos@bsd.tnes.nec.co.jp
