ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CSO ) (06/26/91)
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.