[Rt-commit] [rtir] 02/14: Remove indirect object notation

[Kevin Falcone]

This is an automated email from the git hooks/post-receive script.

falcone pushed a commit to branch 3.4/perlcritic
in repository rtir.

commit f97924ed95d77be9e3b94fdc67b2a9b0c41efa64
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Tue Jul 5 13:59:34 2011 -0400

    Remove indirect object notation
---
 etc/upgrade/upgrade.pl.in | 2 +-
 lib/RT/IR/Test.pm.in      | 2 +-
 t/000-mason-syntax.t      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/etc/upgrade/upgrade.pl.in b/etc/upgrade/upgrade.pl.in
index efa2ea9..e12354b 100644
--- a/etc/upgrade/upgrade.pl.in
+++ b/etc/upgrade/upgrade.pl.in
@@ -91,7 +91,7 @@ print "Base query for children: $base_query\n\n";
 my $children = RT::Tickets->new( $current_user );
 
 require File::Temp;
-my $tmp = new File::Temp; # croak on error
+my $tmp = File::Temp->new; # croak on error
 
 FetchNext( $incidents, 1 );
 while ( my $inc = FetchNext( $incidents ) ) {
diff --git a/lib/RT/IR/Test.pm.in b/lib/RT/IR/Test.pm.in
index b284b64..e1be3d7 100644
--- a/lib/RT/IR/Test.pm.in
+++ b/lib/RT/IR/Test.pm.in
@@ -90,7 +90,7 @@ our $RTIR_TEST_USER = "rtir_test_user";
 our $RTIR_TEST_PASS = "rtir_test_pass";
 
 sub default_agent {
-    my $agent = new RT::IR::Test::Web;
+    my $agent = RT::IR::Test::Web->new;
     require HTTP::Cookies;
     $agent->cookie_jar( HTTP::Cookies->new );
     rtir_user();
diff --git a/t/000-mason-syntax.t b/t/000-mason-syntax.t
index 7f8b4f3..3df3897 100644
--- a/t/000-mason-syntax.t
+++ b/t/000-mason-syntax.t
@@ -34,7 +34,7 @@ sub compile_file {
     my $text = do { local $/; <$fh> };
     close $fh or die "couldn't close '$file': $!";
 
-    my $compiler = new HTML::Mason::Compiler::ToObject;
+    my $compiler = HTML::Mason::Compiler::ToObject->new;
     $compiler->compile(
         comp_source => $text,
         name => 'my',

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.