blob: 6647695f7626b9dd49a9d8c0022fb12708e1e6a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
;# $Id$
;#
;# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
;#
;# You may redistribute only under the terms of the Artistic Licence,
;# as specified in the README file that comes with the distribution.
;# You may reuse parts of this distribution only within the terms of
;# that same Artistic Licence; a copy of which may be found at the root
;# of the source tree for dist 4.0.
;#
;# $Log: patseq.pl,v $
;# Revision 3.0.1.1 1993/08/24 12:22:14 ram
;# patch3: created
;#
;#
# Compute patch sequence by scanning the bugs directory and looking for
# .logs and/or .mods files to determine what was the last issued patch series.
sub patseq {
local($cur) = @_; # Current patch level
local(@seq); # Issued patch sequence
local($i);
for ($i = 1; $i <= $cur; $i++) {
push(@seq, $i) if -f "bugs/.logs$i" || -f "bugs/.mods$i";
}
@seq;
}
|