From: short <>
Date: Sat, 18 Oct 2003 12:54:55 +0000 (+0000)
Subject: Contacts -> PerlMail::Contacts
X-Git-Tag: bp_lace~46
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=6b0b3e175ec251e22d66460bd9f004f8cf6e5564

Contacts -> PerlMail::Contacts
---

diff --git a/PerlMail/Contacts.pm b/PerlMail/Contacts.pm
index 7f1d0b3..ea210ee 100644
--- a/PerlMail/Contacts.pm
+++ b/PerlMail/Contacts.pm
@@ -1,7 +1,7 @@
 #! /usr/bin/perl -w
 # 
 #	$Id$
-# Copyright (C) 2002 Jan Kratochvil <short@ucw.cz>
+# Copyright (C) 2002-2003 Jan Kratochvil <short@ucw.cz>
 # 
 # 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
@@ -18,7 +18,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
-package Contacts;
+package PerlMail::Contacts;
 use vars qw($VERSION);
 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
diff --git a/contacts-n9k2mutt b/contacts-n9k2mutt
index b2b0117..5054de9 100755
--- a/contacts-n9k2mutt
+++ b/contacts-n9k2mutt
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 
 require Getopt::Long;
-require Contacts;
+require PerlMail::Contacts;
 require Mail::Address;
 
 
@@ -34,7 +34,7 @@ while (<>) {
 							"iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
 							}));
 					} @record);
-			} Contacts->import($_));
+			} PerlMail::Contacts->import($_));
 	my @nicked=map({
 			my $data=$_;
 			my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));