File: call-x-www-browser

package info (click to toggle)
libdevel-ptkdb-perl 1.2320-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 1,036 kB
  • sloc: perl: 17,152; makefile: 4
file content (24 lines) | stat: -rw-r--r-- 724 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Description:Help calls x-www-browser  instead of netscape
 Call x-www-browser when clicking help. This fix may be Debian specific.
Author:dod
--- a/ptkdb.pm
+++ b/ptkdb.pm
@@ -175,17 +175,7 @@
 			# Executing "start http://domain.com" it will start the default browser.
 			system(qq!start "ptkdb url title" "$url"!);
 		} else {
-			my (@browsers) = qw/netscape mozilla/ ;
-			my ($fh, $pid, $sh);
-			$sh = 'sh' ;
-			$fh = new FileHandle() ;
-
-			for (@browsers) {
-				$pid = open($fh, qq!$sh $_ "$URLS{ $context }" 2&> /dev/null |!) ;
-				sleep(2);
-				waitpid $pid, 0 ;
-				return if ($? == 0) ;
-				}
+			system ( 'x-www-browser', $url );
 		}
 	} else {
 		warn "Unknown Context '$context'.";