<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w
# SPDX-License-Identifier: LGPL-3.0-or-later
# written by Bernhard M. Wiedemann in 2024
# to normalize the .gir file values
# for reproducible builds of the gegl package
use strict;

my $property = "";
while(&lt;&gt;) {
    if(m/&lt;property name="([^"]+)"/) {
        $property = $1;
    }
    if($property eq "threads") {
        s/(default-value=)"[^"]+"/$1"4"/;
    }
    if($property eq "tile-cache-size") {
        s/(default-value=)"[^"]+"/$1"4000000000"/;
    }
    print;
}
</pre></body></html>