[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.9.7-878-gaecd8dc

Shawn Moore sartak at bestpractical.com
Tue Dec 14 14:23:58 EST 2010


The branch, 3.9-trunk has been updated
       via  aecd8dc185a1eb8a177b335893e48d551f914df6 (commit)
      from  2712cc3f802801744b6620f63adf7d4c2519307b (commit)

Summary of changes:
 bin/rt.in |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit aecd8dc185a1eb8a177b335893e48d551f914df6
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Tue Dec 14 14:23:44 2010 -0500

    Kill some indirect method calls

diff --git a/bin/rt.in b/bin/rt.in
index 6036f67..e2b39dd 100755
--- a/bin/rt.in
+++ b/bin/rt.in
@@ -104,7 +104,7 @@ my %config = (
     config_from_file($ENV{RTCONFIG} || ".rtrc"),
     config_from_env()
 );
-my $session = new Session("$HOME/.rt_sessions");
+my $session = Session->new("$HOME/.rt_sessions");
 my $REST = "$config{server}/REST/1.0";
 $no_strong_auth = 'switched off by externalauth=0'
     if defined $config{externalauth};
@@ -185,7 +185,7 @@ exit handler();
 
 sub shell {
     $|=1;
-    my $term = new Term::ReadLine 'RT CLI';
+    my $term = Term::ReadLine->new('RT CLI');
     while ( defined ($_ = $term->readline($prompt)) ) {
         next if /^#/ || /^\s*$/;
 
@@ -990,7 +990,7 @@ sub grant {
 sub submit {
     my ($uri, $content) = @_;
     my ($req, $data);
-    my $ua = new LWP::UserAgent(agent => "RT/3.0b", env_proxy => 1);
+    my $ua = LWP::UserAgent->new(agent => "RT/3.0b", env_proxy => 1);
     my $h = HTTP::Headers->new;
 
     # Did the caller specify any data to send with the request?

-----------------------------------------------------------------------


More information about the Rt-commit mailing list