host1:~lace/src/PerlMail/ update.

[PerlMail.git] / PerlMail / Contacts / 9000.pm

diff --git a/PerlMail/Contacts/9000.pm b/PerlMail/Contacts/9000.pm
index ebc7195..92045d6 100644 (file)
--- 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);