From 560378aaca1784ba19806a0414a32b20c744de39 Mon Sep 17 00:00:00 2001 From: tpearson Date: Mon, 3 Jan 2011 04:12:51 +0000 Subject: Automated conversion for enhanced compatibility with TQt for Qt4 3.4.0 TP1 NOTE: This will not compile with Qt4 (yet), however it does compile with Qt3 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1211081 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- dcop/dcopidlng/kdocUtil.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'dcop/dcopidlng/kdocUtil.pm') diff --git a/dcop/dcopidlng/kdocUtil.pm b/dcop/dcopidlng/kdocUtil.pm index 629147ac3..e83359724 100644 --- a/dcop/dcopidlng/kdocUtil.pm +++ b/dcop/dcopidlng/kdocUtil.pm @@ -30,7 +30,7 @@ sub countReg return $count; } -=head2 findCommonPrefix +=head2 tqfindCommonPrefix Parameters: string, string @@ -39,7 +39,7 @@ sub countReg =cut -sub findCommonPrefix +sub tqfindCommonPrefix { my @s1 = split( "/", $_[0] ); my @s2 = split( "/", $_[1] ); @@ -72,7 +72,7 @@ sub makeRelativePath $from .= '/' unless $from =~ m#/$#; $to .= '/' unless $to =~ m#/$#; - my $pfx = findCommonPrefix( $from, $to ); + my $pfx = tqfindCommonPrefix( $from, $to ); if ( $pfx ne "" ) { $from =~ s/^$pfx//g; -- cgit v1.2.1