mirrors
/
netsurf
mirror of https://github.com/netsurf-browser/netsurf
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove use of POSIX.pm from svn-testament -- RISCOS seems to be incomplete in that respect 

svn path=/trunk/netsurf/; revision=12062
This commit is contained in:
Daniel Silverstone 2011-03-15 17:55:13 +00:00
parent 775a139103
commit a4b99f5c31
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/svn-testament.pl
View File

@ -1,7 +1,6 @@
#!/usr/bin/perl -w
use strict;
use POSIX;
=head1
@ -65,7 +64,8 @@ my %userinfo; # The information about the current user
# The current date, in AmigaOS version friendly format (dd.mm.yyyy)
my $compiledate = POSIX::strftime("%d.%m.%Y", localtime);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my $compiledate = sprintf("%d.%d.%d",$mday,$mon+1,$year+1900);
chomp $compiledate;
# Spew the testament out
@ -78,9 +78,10 @@ $testament .= "#define GECOS \"$userinfo{GECOS}\"\n";
my $qroot = $root;
$qroot =~ s/"/\\"/g;
my $hostname = POSIX::uname()[1];
my $hostname = $ENV{HOSTNAME};
if ( !defined ( $hostname ) ) { # Try hostname command if env-var empty
unless ( defined($hostname) && $hostname ne "") {
# Try hostname command if env-var empty
$hostname = `hostname`;
chomp $hostname;
}