File indexing completed on 2024-04-14 05:35:08

 #!/usr/bin/perl 
 
 # Laurent Montel <montel@kde.org>
 # Convert Q3CString to QByteArray or QString or DCOPCString
 
 use File::Basename;
 use lib dirname($0);
 use functionUtilkde;
 
 foreach my $file (@ARGV) {
     functionUtilkde::substInFile {
             my $value = $_;
             if ( $value =~ /registerAs/ ) {
                     s!Q3CString!DCOPCString!g;
             }
             elsif ( $value !~ /sprintf/ ) {
                     s!Q3CString!QByteArray!g;
             }
             else {
                     s!Q3CString!QString!g;
             }
     } $file;
 }
 functionUtilkde::diffFile( @ARGV );