From a7b4c3d21ad49d5528651cabf56c4ef1513396bd Mon Sep 17 00:00:00 2001
From: giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8>
Date: Tue, 18 May 2021 03:27:21 +0000
Subject: Use Perl date() when date +%s doesn't work

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@4108 9d0c8265-081b-0410-96cb-a4ca84ce46f8
---
 buildtools/stamp-date | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'buildtools')

diff --git a/buildtools/stamp-date b/buildtools/stamp-date
index 902c82e4..f867416d 100755
--- a/buildtools/stamp-date
+++ b/buildtools/stamp-date
@@ -14,7 +14,14 @@
 
 SOURCE_DATE_OR_NONE=${SOURCE_DATE_EPOCH:-NONE}
 
-BUILD_DATETIME=$(date +%s)
+NOW_FROM_DATE_PGM=$(date +%s)
+if [ "$NOW_FROM_DATE_PGM" = "%s" ]; then
+    # This system's 'date' doesn't know %s.  (Solaris 10 for example).
+    # Try Perl
+    BUILD_DATETIME=$(perl -e 'print time()')
+else
+    BUILD_DATETIME=$NOW_FROM_DATE_PGM
+fi
 
 LOGNAME_OR_UNKNOWN=${LOGNAME:-UNKNOWN}
 USER=${USER:-$LOGNAME_OR_UNKNOWN}
-- 
cgit 1.4.1