Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!linac!mp.cs.niu.edu!ux1.cso.uiuc.edu!ux2.cso.uiuc.edu!ejk
From: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CSO )
Newsgroups: comp.lang.perl
Subject: perl 4.010 coredump on complex RE
Message-ID: <1991Jun25.183311.15432@ux1.cso.uiuc.edu>
Date: 25 Jun 91 18:33:11 GMT
Sender: usenet@ux1.cso.uiuc.edu (News)
Organization: University of Illinois - Urbana
Lines: 74

The attached code fragment from an existing perl application was found to
coredump at perl 4.010 on a Sequent Symmetry, Convex 9.0, and RS/6000 
AIX 3.1.6. It worked at perl 4.000. Simplifying the $P_from regular 
expression to the commented out version works.

----------------------------------
Ed Kubaitis (ejk@ux2.cso.uiuc.edu)
Computing Services Office - University of Illinois, Urbana
===============================================================================
#! /usr//bin/perl
$P_mon = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
$P_day = "Mon|Tue|Wed|Thu|Fri|Sat|Sun";
$P_mday = "[1-9][0-9]?";
$P_time = "[0-2][0-9]:[0-5][0-9]:[0-5][0-9]";
$P_yr = "[12][09][0-9][0-9]";
$P_from = "[^ ]+";
$P_From = 
"From\\s+($P_from)\\s+($P_day)\\s+($P_mon)\\s+($P_mday)\\s+($P_time)\\s+($P_yr)";
#"From\\s+($P_from)\\s+($P_day)\\s+($P_mon)\\s+($P_mday)";


while(<DATA>) { last if m|^///|; }
$filetext = $_;
$filetext =~ s|^///||;

$filetext || die qq|No "///..." title lines found\n|;

while(<DATA>) {
   if (/^$P_From/io) { $skipping=1; }
   elsif (/^\s*\n$/) { $skipping=0; }
   $filetext .= $_ unless $skipping;
   }
__END__
///18jun91 Federal Policy for the Protection of Human Subjects

Volume 56, Number 117
Federal Register page number 28003
Agency:
      DEPARTMENT OF AGRICULTURE
      DEPARTMENT OF ENERGY
      NATIONAL AERONAUTICS AND SPACE ADMINISTRATION
      DEPARTMENT OF COMMERCE
      CONSUMER PRODUCT SAFETY COMMISSION
      INTERNATIONAL DEVELOPMENT COOPERATION AGENCY
      DEPARTMENT OF HOUSING AND URBAN DEVELOPMENT
      DEPARTMENT OF JUSTICE
      DEPARTMENT OF DEFENSE
      DEPARTMENT OF EDUCATION
      DEPARTMENT OF VETERANS AFFAIRS
      ENVIRONMENTAL PROTECTION AGENCY
      DEPARTMENT OF HEALTH AND HUMAN SERVICES
      NATIONAL SCIENCE FOUNDATION
      DEPARTMENT OF TRANSPORTATION
Summary:
      This document sets forth a common Federal Policy for the Protection of
      Human Subjects (Model Policy) accepted by the Office of Science and
      Technology Policy and promulgated in regulation by each of the listed
      Departments and Agencies.  A Proposed Federal Policy for the Protection
      of Human Subjects published November 10, 1988 (53 FR 45661) has been
      revised in response to public comments.  The Policy as revised is now
      set forth as a common final rule.  Institutions currently conducting or
      supporting research in accord with Multiple Project Assurances of
      Compliance (MPAs) approved by and on file in the Office for Protection
      from Research Risks (OPRR) in the Department of Health and Human
      Services may continue to do so in accord with the terms and conditions
      of their MPAs.
Dates:
      These regulations shall become effective on August 19, 1991.  The
      Department of Education regulations (34 CFR part 97) take effect either
      August 19, 1991 or later if Congress takes certain adjournments.
Information:
      Dr. Joan P. Porter, (301)496-7005.  Office for Protection from Research
      Risks, National Institutes of Health, Building 31, room 5B59, Bethesda,
      MD  20892.