From 10308be19ef7fa44699562cc75946e7ea1fdf6b9 Mon Sep 17 00:00:00 2001 From: tpearson Date: Fri, 7 Jan 2011 03:45:53 +0000 Subject: Revert automated changes Sorry guys, they are just not ready for prime time Work will continue as always git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1212479 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 e83359724..629147ac3 100644 --- a/dcop/dcopidlng/kdocUtil.pm +++ b/dcop/dcopidlng/kdocUtil.pm @@ -30,7 +30,7 @@ sub countReg return $count; } -=head2 tqfindCommonPrefix +=head2 findCommonPrefix Parameters: string, string @@ -39,7 +39,7 @@ sub countReg =cut -sub tqfindCommonPrefix +sub findCommonPrefix { my @s1 = split( "/", $_[0] ); my @s2 = split( "/", $_[1] ); @@ -72,7 +72,7 @@ sub makeRelativePath $from .= '/' unless $from =~ m#/$#; $to .= '/' unless $to =~ m#/$#; - my $pfx = tqfindCommonPrefix( $from, $to ); + my $pfx = findCommonPrefix( $from, $to ); if ( $pfx ne "" ) { $from =~ s/^$pfx//g; -- cgit v1.2.1