blob: 242d85d3eb6a8ca064a534cf71c693fb85206e03 (
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: patseq.pl 1 2006-08-24 12:32:52Z rmanfredi $
;#
;# 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;
}
|