diff options
Diffstat (limited to 'dcop/dcopidlng/kdocUtil.pm')
| -rw-r--r-- | dcop/dcopidlng/kdocUtil.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; |