s/perl.com/example.com/ in examples and tests

1 files changed, 7 insertions, 7 deletions

diff --git a/t/rtsp.t b/t/rtsp.t
index af08064..3f5e4ea 100644
--- a/t/rtsp.t
+++ b/t/rtsp.t
@@ -5,10 +5,10 @@ print "1..9\n";
 
 use URI ();
 
-my $u = URI->new("<rtsp://media.perl.com/fôo.smi/>");
+my $u = URI->new("<rtsp://media.example.com/fôo.smi/>");
 
 #print "$u\n";
-print "not " unless $u eq "rtsp://media.perl.com/f%F4o.smi/";
+print "not " unless $u eq "rtsp://media.example.com/f%F4o.smi/";
 print "ok 1\n";
 
 print "not " unless $u->port == 554;
@@ -16,22 +16,22 @@ print "ok 2\n";
 
 # play with port
 my $old = $u->port(8554);
-print "not " unless $old == 554 && $u eq "rtsp://media.perl.com:8554/f%F4o.smi/";
+print "not " unless $old == 554 && $u eq "rtsp://media.example.com:8554/f%F4o.smi/";
 print "ok 3\n";
 
 $u->port(554);
-print "not " unless $u eq "rtsp://media.perl.com:554/f%F4o.smi/";
+print "not " unless $u eq "rtsp://media.example.com:554/f%F4o.smi/";
 print "ok 4\n";
 
 $u->port("");
-print "not " unless $u eq "rtsp://media.perl.com:/f%F4o.smi/" && $u->port == 554;
+print "not " unless $u eq "rtsp://media.example.com:/f%F4o.smi/" && $u->port == 554;
 print "ok 5\n";
 
 $u->port(undef);
-print "not " unless $u eq "rtsp://media.perl.com/f%F4o.smi/";
+print "not " unless $u eq "rtsp://media.example.com/f%F4o.smi/";
 print "ok 6\n";
 
-print "not " unless $u->host eq "media.perl.com";
+print "not " unless $u->host eq "media.example.com";
 print "ok 7\n";
 
 print "not " unless $u->path eq "/f%F4o.smi/";