mirror of
https://gitlab.com/xonotic/xonotic
synced 2025-01-22 14:03:49 +00:00
36 lines
471 B
Perl
36 lines
471 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my %cvar2line = ();
|
|
my @lines = ();
|
|
|
|
my $first = 1;
|
|
while(<>)
|
|
{
|
|
chomp;
|
|
s/\r//g;
|
|
|
|
if(/^\s*(?:set\s+|seta\s+)(\S+)/ or /^\s*(\S+_\S+)/)
|
|
{
|
|
if(exists $cvar2line{$1})
|
|
{
|
|
$lines[$cvar2line{$1}] = $_;
|
|
}
|
|
else
|
|
{
|
|
$cvar2line{$1} = scalar @lines;
|
|
push @lines, $_;
|
|
}
|
|
}
|
|
elsif($first) # only take comments, empty lines from the first config
|
|
{
|
|
push @lines, $_;
|
|
}
|
|
$first = 0
|
|
if eof;
|
|
}
|
|
|
|
print "$_\n" for @lines;
|