blob: 676f353800fa971271a3ace393bca114a54c894d (
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
28
|
;# $Id: snapshot.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: 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;
}
|