Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!samsung!olivea!oliveb!veritas!amdcad!sono!porky!mayer
From: mayer@sono.uucp (Ronald &)
Newsgroups: comp.lang.perl
Subject: Segmentation fault" (sub,eval, and // combination)
Message-ID: <MAYER.91Jun28114144@porky.sono.uucp>
Date: 28 Jun 91 18:41:44 GMT
Sender: mayer@sono.uucp (Ronald Mayer)
Distribution: comp
Organization: Acuson; Mountain View, California
Lines: 20


I get a segmentation fault when I try:

    #!/usr/local/bin/perl
    sub sub1 {
        eval("sub sub2 {/1/;&sub1;/1/;}");
    }
    &sub1;
    &sub2;

Interestingly, it doesn't happen when I take out the '/1/' statements.

    Perl 4.0 Patch level: 3
    SunOS 4.1 1
    sparc

[Does this happen in Patch level: 10?  We haven't upgraded yet.]

    Ron Mayer
    mayer@sono.uucp