host1:~lace/src/PerlMail/ update.

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

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
index 9d7a880..9be8d9d 100644 (file)
--- a/PerlMail/Contacts/9210.pm
+++ b/PerlMail/Contacts/9210.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # 
-#      $Id$
+#      $Id: 9210.pm,v 1.4 2004/12/19 11:47:47 short Exp $
 # Copyright (C) 2002-2004 Jan Kratochvil <project-PerlMail@jankratochvil.net>
 # 
 # This program is free software; you can redistribute it and/or modify
@@ -50,7 +50,7 @@ my($self)=@_;
 
 package PerlMail::Contacts::9210;
 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.4 $=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
 use warnings;
 use vars qw(@ISA);