Codebase list libdevel-ptkdb-perl / cb788b0
added patch to fix call to browser Dominique Dumont 10 years ago
2 changed file(s) with 25 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
0 Description:Help calls x-www-browser instead of netscape
1 Call x-www-browser when clicking help. This fix may be Debian specific.
2 Author:dod
3 --- a/ptkdb.pm
4 +++ b/ptkdb.pm
5 @@ -175,17 +175,7 @@
6 # Executing "start http://domain.com" it will start the default browser.
7 system(qq!start "ptkdb url title" "$url"!);
8 } else {
9 - my (@browsers) = qw/netscape mozilla/ ;
10 - my ($fh, $pid, $sh);
11 - $sh = 'sh' ;
12 - $fh = new FileHandle() ;
13 -
14 - for (@browsers) {
15 - $pid = open($fh, qq!$sh $_ "$URLS{ $context }" 2&> /dev/null |!) ;
16 - sleep(2);
17 - waitpid $pid, 0 ;
18 - return if ($? == 0) ;
19 - }
20 + system ( 'x-www-browser', $url );
21 }
22 } else {
23 warn "Unknown Context '$context'.";
0 call-x-www-browser
01 fix-test
12 spelling.patch
23 fix-pod-error