diff options
Diffstat (limited to 'pl/snapshot.pl')
-rw-r--r-- | pl/snapshot.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/pl/snapshot.pl b/pl/snapshot.pl new file mode 100644 index 0000000..8b48b62 --- /dev/null +++ b/pl/snapshot.pl @@ -0,0 +1,28 @@ +;# $Id: snapshot.pl,v 3.0.1.1 1993/08/24 12:22:34 ram Exp $ +;# +;# Copyright (c) 1991-1993, 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 3.0. +;# +;# $Log: snapshot.pl,v $ +;# Revision 3.0.1.1 1993/08/24 12:22:34 ram +;# patch3: created +;# +# Read snapshot file and build %Snap, indexed by file name -> RCS revision +sub readsnapshot { + local($snap) = @_; + open(SNAP, $snap) || warn "Can't open $snap: $!\n"; + local($_); + local($file, $rev); + while (<SNAP>) { + next if /^#/; + ($file, $rev) = split; + $Snap{$file} = "$rev"; + } + close SNAP; +} + |