summaryrefslogtreecommitdiff
path: root/pl/snapshot.pl
diff options
context:
space:
mode:
authorManoj Srivastava <srivasta@debian.org>2008-05-30 12:42:47 -0700
committerManoj Srivastava <srivasta@debian.org>2008-05-30 12:42:47 -0700
commitceb3507a8fca872770b3dcd7e5c5b36179ab95b0 (patch)
treeb46b4e25cfff5f4c13a330b8428ceed343e3796c /pl/snapshot.pl
Import dist_3.5-236.orig.tar.gz
[dgit import orig dist_3.5-236.orig.tar.gz]
Diffstat (limited to 'pl/snapshot.pl')
-rw-r--r--pl/snapshot.pl28
1 files changed, 28 insertions, 0 deletions
diff --git a/pl/snapshot.pl b/pl/snapshot.pl
new file mode 100644
index 0000000..8eb40d9
--- /dev/null
+++ b/pl/snapshot.pl
@@ -0,0 +1,28 @@
+;# $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: 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;
+}
+