Merge branch 'pull/34' into master

Author: karenetheridge

t/cmp.t

@@ -7,7 +7,7 @@ use strict;
 BEGIN {use_ok( "File::Temp" ); }
 
 {
-  my $fh = new File::Temp();
+  my $fh = File::Temp->new();
   isa_ok ($fh, 'File::Temp');
 
   ok( "$fh" ne "foo", "compare stringified object with string");

t/lock.t

@@ -43,7 +43,7 @@ if ($@) {
 ok( !$status, "File $fh is locked" );
 
 # Now get a tempfile with locking disabled
-$fh = new File::Temp( EXLOCK => 0 );
+$fh = File::Temp->new( EXLOCK => 0 );
 
 eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required

t/object.t

@@ -41,7 +41,7 @@ like( $@, qr/can't be called as a method/, "File::Temp->tempfile error" );
 
 # Tempfile
 # Open tempfile in some directory, unlink at end
-my $fh = new File::Temp( SUFFIX => '.txt' );
+my $fh = File::Temp->new( SUFFIX => '.txt' );
 
 ok( (-f "$fh"), "File $fh exists"  );
 # Should still be around after closing
@@ -89,7 +89,7 @@ ok( (-d $tempdir), "Does $tempdir directory exist" );
 push(@dirs, $tempdir);
 
 # Create file in the temp dir
-$fh = new File::Temp(
+$fh = File::Temp->new(
 		     DIR => $tempdir,
 		     SUFFIX => '.dat',
 		    );
@@ -102,15 +102,15 @@ push(@files, "$fh");
 
 # Test tempfile
 # ..and again (without unlinking it)
-$fh = new File::Temp( DIR => $tempdir, UNLINK => 0 );
+$fh = File::Temp->new( DIR => $tempdir, UNLINK => 0 );
 
 print "# TEMPFILE: Created $fh\n";
 ok( (-f "$fh" ), "Second file $fh exists in tempdir [nounlink]?");
 push(@files, "$fh");
 
 # and another (with template)
 
-$fh = new File::Temp( TEMPLATE => 'helloXXXXXXX',
+$fh = File::Temp->new( TEMPLATE => 'helloXXXXXXX',
 		      DIR => $tempdir,
 		      SUFFIX => '.dat',
 		    );
@@ -133,7 +133,7 @@ push(@files, "$fh");
 
 # Create a temporary file that should stay around after
 # it has been closed
-$fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 0);
+$fh = File::Temp->new( TEMPLATE => 'permXXXXXXX', UNLINK => 0);
 
 print "# TEMPFILE: Created $fh\n";
 ok( -f "$fh", "File $fh exists?" );
@@ -143,7 +143,7 @@ push( @still_there, "$fh"); # check at END
 
 # Now create a temp file that will remain when the object
 # goes out of scope because of $KEEP_ALL
-$fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 1);
+$fh = File::Temp->new( TEMPLATE => 'permXXXXXXX', UNLINK => 1);
 
 print "# TEMPFILE: Created $fh\n";
 ok( -f "$fh", "File $fh exists?" );