diff --git a/qt4/convert-kurl.pl b/qt4/convert-kurl.pl index ee3e138..c8f2ede 100755 --- a/qt4/convert-kurl.pl +++ b/qt4/convert-kurl.pl @@ -1,38 +1,39 @@ #!/usr/bin/perl # laurent Montel 2006 GPL # Script to use QT macros: Q_SLOTS/Q_SIGNALS # use File::Basename; use lib dirname( $0 ); use functionUtilkde; use strict; open(my $F, q(find -name "*" |)); my $file; while ($file = <$F>) { chomp $file; next if functionUtilkde::excludeFile( $file); my $modified; my @necessaryIncludes = (); open(my $FILE, $file) or warn "We can't open file $file:$!\n"; my @l = map { my $orig = $_; $_ =~ s/KURL /KUrl /g; $_ =~ s/KURL&/KUrl&/g; $_ =~ s/KURL\*/KUrl\*/g; $_ =~ s/KURL::/KUrl::/g; $_ =~ s/class KURL;/class KUrl;/; + $_ =~ s/KURL\(/KUrl\(/g; $modified ||= $orig ne $_; $_; } <$FILE>; if ($modified) { open (my $OUT, ">$file"); print $OUT @l; } } functionUtilkde::diffFile( <$F> );