X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Fticket_txn_content.t;h=096d78e31474200751e1de85928b4ffcf59c6231;hb=1eeb1dd656684d90230188ac0af1433d169e4a3d;hp=db47512185a4c734e4aae35163d0207f4ad36b14;hpb=85e677b86fc37c54e6de2b06340351a28f5a5916;p=freeside.git

diff --git a/rt/t/web/ticket_txn_content.t b/rt/t/web/ticket_txn_content.t
index db4751218..096d78e31 100644
--- a/rt/t/web/ticket_txn_content.t
+++ b/rt/t/web/ticket_txn_content.t
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
 use strict;
+use warnings;
 
 use RT::Test tests => 63;
 my $plain_file = File::Spec->catfile( RT::Test->temp_directory, 'attachment.txt' );
@@ -27,14 +27,14 @@ sub follow_parent_with_headers_link {
     my $m    = shift;
     my $link = $m->find_link(@_)->url;
     $link =~ s{/(\d+)$}{"/" . ($1-1)}e;  # get the parent attach
-    $m->get_ok($baseurl . $link);
+    $m->get_ok($link);
 }
 
 sub follow_with_headers_link {
     my $m    = shift;
     my $link = $m->find_link(@_)->url;
     $link =~ s{/\d+/(\d+)/.+$}{/WithHeaders/$1};   # frob into a with headers url
-    $m->get_ok($baseurl . $link);
+    $m->get_ok($link);
 }
 
 for my $type ( 'text/plain', 'text/html' ) {