17 files changed, 28 insertions, 28 deletions
diff --git a/perl/t/acl.t b/perl/t/acl.t
index 26b4903..7265865 100755
--- a/perl/t/acl.t
+++ b/perl/t/acl.t
@@ -2,7 +2,7 @@
 #
 # Tests for the wallet ACL API.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/admin.t b/perl/t/admin.t
index 740c79e..1f3ccba 100755
--- a/perl/t/admin.t
+++ b/perl/t/admin.t
@@ -2,7 +2,7 @@
 #
 # Tests for wallet administrative interface.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2008, 2009, 2010, 2011, 2013
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/config.t b/perl/t/config.t
index 543e5d6..881f2bd 100755
--- a/perl/t/config.t
+++ b/perl/t/config.t
@@ -2,7 +2,7 @@
 #
 # Tests for the wallet server configuration.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2008, 2010
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/file.t b/perl/t/file.t
index 5cb7c35..ac35c44 100755
--- a/perl/t/file.t
+++ b/perl/t/file.t
@@ -2,7 +2,7 @@
 #
 # Tests for the file object implementation.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2008
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/init.t b/perl/t/init.t
index 142f54c..189a689 100755
--- a/perl/t/init.t
+++ b/perl/t/init.t
@@ -2,7 +2,7 @@
 #
 # Tests for database initialization.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/keytab.t b/perl/t/keytab.t
index 34da9c9..cb256ee 100755
--- a/perl/t/keytab.t
+++ b/perl/t/keytab.t
@@ -2,7 +2,7 @@
 #
 # Tests for the keytab object implementation.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008, 2009, 2010, 2013
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm
index 3e606fe..9e5b95e 100644
--- a/perl/t/lib/Util.pm
+++ b/perl/t/lib/Util.pm
@@ -1,6 +1,6 @@
 # Utility class for wallet tests.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/object.t b/perl/t/object.t
index 5eb6941..12443bc 100755
--- a/perl/t/object.t
+++ b/perl/t/object.t
@@ -2,7 +2,7 @@
 #
 # Tests for the basic object implementation.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008, 2011
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/pod-spelling.t b/perl/t/pod-spelling.t
index 6d9f7b0..577a99e 100755
--- a/perl/t/pod-spelling.t
+++ b/perl/t/pod-spelling.t
@@ -7,7 +7,7 @@
 # RRA_MAINTAINER_TESTS is set, since spelling dictionaries vary too much
 # between environments.
 #
-# Copyright 2008, 2009 Russ Allbery <rra@stanford.edu>
+# Copyright 2008, 2009 Russ Allbery <eagle@eyrie.org>
 #
 # See LICENSE for licensing terms.
 
diff --git a/perl/t/pod.t b/perl/t/pod.t
index dc5f468..dfcf88e 100755
--- a/perl/t/pod.t
+++ b/perl/t/pod.t
@@ -2,7 +2,7 @@
 #
 # Test POD formatting for the wallet Perl modules.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2010
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/report.t b/perl/t/report.t
index a6b85df..4ea9628 100755
--- a/perl/t/report.t
+++ b/perl/t/report.t
@@ -2,7 +2,7 @@
 #
 # Tests for the wallet reporting interface.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2008, 2009, 2010
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/server.t b/perl/t/server.t
index 4afda51..2a83008 100755
--- a/perl/t/server.t
+++ b/perl/t/server.t
@@ -2,7 +2,7 @@
 #
 # Tests for the wallet server API.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008, 2010, 2011, 2012, 2013
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/stanford-naming.t b/perl/t/stanford-naming.t
index f222c49..c512ad0 100755
--- a/perl/t/stanford-naming.t
+++ b/perl/t/stanford-naming.t
@@ -6,7 +6,7 @@
 # sites, but it's used at Stanford and this test suite is used to verify
 # behavior at Stanford.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2013
 #     The Board of Trustees of the Leland Stanford Junior University
 #
diff --git a/perl/t/verifier-ldap-attr.t b/perl/t/verifier-ldap-attr.t
index 7fad990..37a8b92 100755
--- a/perl/t/verifier-ldap-attr.t
+++ b/perl/t/verifier-ldap-attr.t
@@ -5,7 +5,7 @@
 # This test can only be run by someone local to Stanford with appropriate
 # access to the LDAP server and will be skipped in all other environments.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2012, 2013, 2014
 #     The Board of Trustees of the Leland Stanford Junior University
 #
@@ -28,7 +28,7 @@ require_ok ('Wallet::ACL::LDAP::Attribute');
 my $host   = 'ldap.stanford.edu';
 my $base   = 'cn=people,dc=stanford,dc=edu';
 my $filter = 'uid';
-my $user   = 'rra@stanford.edu';
+my $user   = 'eagle@eyrie.org';
 my $attr   = 'suPrivilegeGroup';
 my $value  = 'stanford:stanford';
 
diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t
index 398cc6a..3e34966 100755
--- a/perl/t/verifier-netdb.t
+++ b/perl/t/verifier-netdb.t
@@ -6,7 +6,7 @@
 # access to the NetDB role server and will be skipped in all other
 # environments.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2008
 #     The Board of Trustees of the Leland Stanford Junior University
 #
@@ -21,7 +21,7 @@ use Util;
 
 my $netdb = 'netdb-node-roles-rc.stanford.edu';
 my $host  = 'windlord.stanford.edu';
-my $user  = 'rra@stanford.edu';
+my $user  = 'eagle@eyrie.org';
 
 # Determine the local principal.
 my $klist = `klist 2>&1` || '';
diff --git a/perl/t/verifier.t b/perl/t/verifier.t
index 75f1afa..c734762 100755
--- a/perl/t/verifier.t
+++ b/perl/t/verifier.t
@@ -2,7 +2,7 @@
 #
 # Tests for the basic wallet ACL verifiers.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2007, 2008, 2010
 #     The Board of Trustees of the Leland Stanford Junior University
 #
@@ -23,37 +23,37 @@ use Util;
 my $verifier = Wallet::ACL::Base->new;
 ok (defined $verifier, 'Wallet::ACL::Base creation');
 ok ($verifier->isa ('Wallet::ACL::Base'), ' and class verification');
-is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 0,
+is ($verifier->check ('eagle@eyrie.org', 'eagle@eyrie.org'), 0,
     'Default check declines');
 is ($verifier->error, undef, 'No error set');
 
 $verifier = Wallet::ACL::Krb5->new;
 ok (defined $verifier, 'Wallet::ACL::Krb5 creation');
 ok ($verifier->isa ('Wallet::ACL::Krb5'), ' and class verification');
-is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 1,
+is ($verifier->check ('eagle@eyrie.org', 'eagle@eyrie.org'), 1,
     'Simple check');
-is ($verifier->check ('rra@stanford.edu', 'thoron@stanford.edu'), 0,
+is ($verifier->check ('eagle@eyrie.org', 'thoron@stanford.edu'), 0,
     'Simple failure');
 is ($verifier->error, undef, 'No error set');
-is ($verifier->check (undef, 'rra@stanford.edu'), undef,
+is ($verifier->check (undef, 'eagle@eyrie.org'), undef,
     'Undefined principal');
 is ($verifier->error, 'no principal specified', ' and right error');
-is ($verifier->check ('rra@stanford.edu', ''), undef, 'Empty ACL');
+is ($verifier->check ('eagle@eyrie.org', ''), undef, 'Empty ACL');
 is ($verifier->error, 'malformed krb5 ACL', ' and right error');
 
 $verifier = Wallet::ACL::Krb5::Regex->new;
 isa_ok ($verifier, 'Wallet::ACL::Krb5::Regex', 'krb5-regex verifier');
-is ($verifier->check ('rra@stanford.edu', '.*@stanford\.edu\z'), 1,
+is ($verifier->check ('eagle@eyrie.org', '.*@stanford\.edu\z'), 1,
     'Simple check');
-is ($verifier->check ('rra@stanford.edu', '^a.*@stanford\.edu'), 0,
+is ($verifier->check ('eagle@eyrie.org', '^a.*@stanford\.edu'), 0,
     'Simple failure');
 is ($verifier->error, undef, 'No error set');
 is ($verifier->check (undef, '^rra@stanford\.edu\z'), undef,
     'Undefined principal');
 is ($verifier->error, 'no principal specified', ' and right error');
-is ($verifier->check ('rra@stanford.edu', ''), undef, 'Empty ACL');
+is ($verifier->check ('eagle@eyrie.org', ''), undef, 'Empty ACL');
 is ($verifier->error, 'no ACL specified', ' and right error');
-is ($verifier->check ('rra@stanford.edu', '(rra'), undef, 'Malformed regex');
+is ($verifier->check ('eagle@eyrie.org', '(rra'), undef, 'Malformed regex');
 is ($verifier->error, 'malformed krb5-regex ACL', ' and right error');
 
 # Tests for the NetDB verifiers.  Skip these if we don't have a keytab or if
diff --git a/perl/t/wa-keyring.t b/perl/t/wa-keyring.t
index 7ba5723..eaae034 100755
--- a/perl/t/wa-keyring.t
+++ b/perl/t/wa-keyring.t
@@ -2,7 +2,7 @@
 #
 # Tests for the WebAuth keyring object implementation.
 #
-# Written by Russ Allbery <rra@stanford.edu>
+# Written by Russ Allbery <eagle@eyrie.org>
 # Copyright 2013
 #     The Board of Trustees of the Leland Stanford Junior University
 #