X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=PerlMail%2FContacts%2F9000.pm;fp=PerlMail%2FContacts%2F9000.pm;h=92045d6962c35064dc20361a99a9a5a2db67393a;hp=ebc7195e7ebb0c5ee0e5e18829fb73fa50fb8b96;hb=4c605efe63f4a34215c4bf41b46a09f087f5ce96;hpb=0dd6e159920b9402e163cd35bdc8465dcfee65c9

diff --git a/PerlMail/Contacts/9000.pm b/PerlMail/Contacts/9000.pm
index ebc7195..92045d6 100644
--- a/PerlMail/Contacts/9000.pm
+++ b/PerlMail/Contacts/9000.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # 
-#	$Id$
+#	$Id: 9000.pm,v 1.1 2004/12/17 21:14:39 short Exp $
 # Copyright (C) 2002-2004 Jan Kratochvil <project-PerlMail@jankratochvil.net>
 # 
 # This program is free software; you can redistribute it and/or modify
@@ -20,7 +20,7 @@
 
 package PerlMail::Contacts::9000;
 use vars qw($VERSION);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+$VERSION=do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
 use warnings;
 use vars qw(@ISA);