mirror of
https://bitbucket.org/smil3y/kde-extraapps.git
synced 2025-02-24 10:52:53 +00:00
17 lines
308 B
Perl
Executable file
17 lines
308 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
while(<>)
|
|
{
|
|
($key) = ($_ =~ /([^=]*)=(.*)$/);
|
|
($value) = ($_ =~ /^[^=]*=(.*)$/);
|
|
|
|
if( $key eq "AutoPasteCaseInsensitive" and $value eq "false" )
|
|
{
|
|
print "# DELETE " . $key . "\n";
|
|
print "AutoPasteCaseSensitive=true\n";
|
|
next;
|
|
}
|
|
|
|
print $_;
|
|
}
|