diff options
author | rmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af> | 2006-08-24 12:32:52 +0000 |
---|---|---|
committer | rmanfredi <rmanfredi@190e5f8e-a817-0410-acf6-e9863daed9af> | 2006-08-24 12:32:52 +0000 |
commit | 8bfc5756fb68e0b13d7e7c0073ad5b9a4790d1b6 (patch) | |
tree | dee05e98bc53766d609ef2a3a07a5672627d812c /pl/patseq.pl |
Moving project to sourceforge.
git-svn-id: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@1 190e5f8e-a817-0410-acf6-e9863daed9af
Diffstat (limited to 'pl/patseq.pl')
-rw-r--r-- | pl/patseq.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/pl/patseq.pl b/pl/patseq.pl new file mode 100644 index 0000000..6647695 --- /dev/null +++ b/pl/patseq.pl @@ -0,0 +1,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; +} + |