+my @gdbargs = (
+ '--eval-command', 'handle SIGPIPE pass nostop noprint',
+ '--eval-command', 'handle SIGHUP pass nostop noprint',
+ '--eval-command', 'run',
+ '--args', "$binpath/$executable", qw(--nofork --nolog --debug)
+);
+
+sub expand_fragment($$) {
+ my ($base, $fragment) = @_;
+ if ($fragment =~ /^\//) {
+ return $fragment;
+ } else {
+ return "$base/$fragment";
+ }
+}
+
+if (!(grep { $_ eq '--runasroot' } @ARGV) && ($< == 0 || $> == 0)) {