Warning, file /sdk/kde-dev-scripts/kf5/port-kauthactions.pl was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 #!/usr/bin/perl -w 0002 0003 # Laurent Montel <montel@kde.org> (2014) 0004 # Port to new KAuth API 0005 # find -iname "*.cpp" -o -iname "*.h" |xargs kde-dev-scripts/kf5/port-kauthactions.pl 0006 0007 use strict; 0008 use File::Basename; 0009 use lib dirname($0); 0010 use functionUtilkde; 0011 0012 foreach my $file (@ARGV) { 0013 0014 my $modified; 0015 open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n"; 0016 my @l = map { 0017 my $orig = $_; 0018 s/KDE4_AUTH_HELPER_MAIN/KAUTH_HELPER_MAIN/; 0019 0020 $modified ||= $orig ne $_; 0021 $_; 0022 } <$FILE>; 0023 0024 if ($modified) { 0025 open (my $OUT, ">", $file); 0026 print $OUT @l; 0027 close ($OUT); 0028 } 0029 } 0030 0031 functionUtilkde::diffFile( "@ARGV" );