dist-3.0at70/pl/patseq.pl

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