File: 01_hostname.patch

package info (click to toggle)
changetrack 4.7-10
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 284 kB
  • sloc: perl: 1,401; sh: 65; makefile: 11
file content (17 lines) | stat: -rw-r--r-- 616 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
## hostname.diff by Jens Peter Secher <jps@debian.org>
##
## Use fully qualified hostname when non is specified.

Index: changetrack/changetrack
===================================================================
--- changetrack.orig/changetrack
+++ changetrack/changetrack
@@ -40,7 +40,7 @@ my @temp = split(' ', '$Revision: 4.7 $
 my $version = $temp[1];
 
 my $homedir = $ENV{"HOME"} || $ENV{"LOGDIR"} || (getpwuid($<))[7];
-my $hostname = `hostname`; chomp($hostname);
+my $hostname = `hostname -f`; chomp($hostname);
 if(substr($homedir,-1,1) ne "/") {$homedir = $homedir . "/";}
 
 my ($rcs_quiet, $diffargs);