Changeset 4175

Timestamp:

04/26/09 14:14:00 (3 years ago)

Author:

therek

Message:

reuse existing tempfiles

File:

• trunk/Padre/lib/Padre/Document.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Document.pm

@@ -560 +560 @@
 sub store_in_tempfile {
     my $self = shift;
+
+    $self->create_tempfile unless $self->tempfile;
     
-    $self->remove_tempfile if $self->tempfile;
-    
+    open FH, ">", $self->tempfile;
+    print FH $self->text_get;
+    close FH;
+
+    return $self->tempfile;
+}
+
+sub create_tempfile {
     use File::Temp;
     
     my $tempfile = File::Temp->new( UNLINK => 0 );
-    $self->set_tempfile( $tempfile->filename );
-    print $tempfile $self->text_get;
-
-    return $tempfile->filename;
+    $_[0]->set_tempfile( $tempfile->filename );
+    close $tempfile;
+    
+    return;
 }