X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=PerlMail%2FContacts.pm;fp=PerlMail%2FContacts.pm;h=0471a7e51eb034af2dabeb64d816c7bef5897929;hp=ea210ee6549ff933ae9ef8e7a45a57a63aa024cb;hb=be8e1bc69e15a29e52d8bbcde5971214a5b8340b;hpb=5d346256a5c3b4b4266b00d1adda8a56320c6171 diff --git a/PerlMail/Contacts.pm b/PerlMail/Contacts.pm index ea210ee..0471a7e 100644 --- a/PerlMail/Contacts.pm +++ b/PerlMail/Contacts.pm @@ -1,7 +1,7 @@ -#! /usr/bin/perl -w +#! /usr/bin/perl # # $Id$ -# Copyright (C) 2002-2003 Jan Kratochvil +# Copyright (C) 2002-2003 Jan Kratochvil # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -22,7 +22,7 @@ package PerlMail::Contacts; use vars qw($VERSION); $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; use strict; -#use warnings; +use warnings; sub new