Changeset 13811 for trunk/core/lib/Foswiki/Templates.pm

Timestamp:

01/24/12 09:31:40 (4 months ago)

Author:

OlivierRaginel

Message:

Item11458: Try to optimise filesystem accesses by minimizing stat() calls. Also Sven, 3 arguments open!!!

File:

• trunk/core/lib/Foswiki/Templates.pm (modified) (3 diffs)

trunk/core/lib/Foswiki/Templates.pm

@@ -612 +612 @@
         $tmpl_cachedir . '/' . $name . '__' . $skins . '__' . $web . '.tmpl' );
 
-    unless ( open( FILE, ">$filename" ) ) {
+    unless ( open( my $file, '>', $filename ) ) {
         die "Can't create file $filename - $!\n" if DEBUG;
         print STDERR "Can't create file $filename - $!\n";
@@ -618 +618 @@
         return;
     }
-    print FILE $tmplText;
-    close(FILE);
+    print $file $tmplText;
+    close($file);
 }
 
@@ -634 +634 @@
 
     if ( -e $filename ) {
-        open( IN_FILE, "<$filename" ) || return;
+        open( my $in_file, '<', $filename ) or return;
         local $/ = undef;    # set to read to EOF
-        my $data = <IN_FILE>;
-        close(IN_FILE);
+        my $data = <$in_file>;
+        close($in_file);
         return $data;
     }