#!/usr/bin/perl # Copyright: MandrivaSoft, licensed under the GPL v2. # modified by Laurent Montel <lmontel@mandrivasoft.com> use strict; use MDK::Common; foreach my $file (@ARGV) { substInFile { if (/Extensions=(.*)$/) { my $result = $1; s!$!,find.desktop! if $result !~ m!find.desktop!; } } $file; }