sc: lotv patch v5.0.13 (2024-03-26)

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 14ff204c5ffa669d5a43e9ec2a94fa6edf46f9a4..16408842581ebaccea3a1c75b51f712fadec2e61 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -71,8 +71,8 @@ sub stylesheet {
                } or warn "Unable to create style cookie: $@";
        }
 
-       $style ||= $styles{$_} for $cookie{style} || ();
        my $setstyle = $style;
+       $style ||= $styles{$_} for $cookie{style} || ();
        $style ||= $avail[0];
        return $setstyle;
 }
@@ -97,7 +97,7 @@ sub checkmodified {
 sub Data {
        my ($filename) = @_;
        my @data = eval {
-               open my $cache, '<:raw', "data/$filename.json"
+               !exists $get{f} and open my $cache, '<:raw', "data/$filename.json"
                        or return do "./$filename.inc.pl"; # silent fallback to original code
                require JSON;
                local $/; # slurp