This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get in the last bunch of Configure changes
[metaconfig.git] / bin / patindex
CommitLineData
459d3fb5
MBT
1#!/bin/sh
2
3# $Id: patindex.SH 1 2006-08-24 12:32:52Z rmanfredi $
4#
5# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
6#
7# You may redistribute only under the terms of the Artistic Licence,
8# as specified in the README file that comes with the distribution.
9# You may reuse parts of this distribution only within the terms of
10# that same Artistic Licence; a copy of which may be found at the root
11# of the source tree for dist 4.0.
12#
13# Original Author: Larry Wall <lwall@netlabs.com>
14#
15# $Log: patindex.SH,v $
16# Revision 3.0.1.1 1993/08/19 06:42:37 ram
17# patch1: leading config.sh searching was not aborting properly
18#
19# Revision 3.0 1993/08/18 12:10:44 ram
20# Baseline for dist 3.0 netwide release.
21#
22
23zcat='/usr/bin/zcat'
24test='test'
25sed='/usr/bin/sed'
26grep='/usr/bin/grep'
27
28if test -d bugs; then
29 cd bugs
30fi
31for i in patch? patch??; do
32 if $test -f $i; then
33 echo "=== $i ==="
34 $grep '^Subject: ' $i | $sed 's/^patch\(.*\):Subject/\1/'
35 fi
36done
37for i in patch?.Z patch??.Z; do
38 if $test -f $i; then
39 name=`echo $i | $sed "s|\.Z$||"`
40 echo "=== $name ==="
41 $zcat $i | $grep '^Subject: ' | $sed 's/^patch\(.*\):Subject/\1/'
42 fi
43done