This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow s{GM,LOCAL)TIME_{min,max} to be set from CLI, Policy.sh and hints
authorH.Merijn Brand <merijn@nb09.procura.nl>
Mon, 29 Sep 2008 16:14:06 +0000 (18:14 +0200)
committerH.Merijn Brand <merijn@nb09.procura.nl>
Mon, 29 Sep 2008 16:14:06 +0000 (18:14 +0200)
U/perl/time_size.U

index cb1be54..0741ea1 100644 (file)
@@ -59,7 +59,9 @@ case $i_values in
     *)      yyy="" ;;
     esac
 
-$cat >try.c <<EOCP
+case "$sGMTIME_min/$sGMTIME_max" in
+    0/0|/)
+       $cat >try.c <<EOCP
 #include <sys/types.h>
 #include <stdio.h>
 #include <time.h>
@@ -122,17 +124,21 @@ int main (int argc, char *argv[])
     return (0);
     } /* main */
 EOCP
-set try
-if eval $compile; then
-    eval `$run ./try`
-else
-    echo "Cannot determine sGMTIME_max and sGMTIME_min." >&4
-    fi
-$rm_try
+       set try
+       if eval $compile; then
+           eval `$run ./try`
+       else
+           echo "Cannot determine sGMTIME_max and sGMTIME_min." >&4
+           fi
+       $rm_try
+       ;;
+    esac
 
 echo "Checking max offsets that localtime () accepts"
 
-$cat >try.c <<EOCP
+case "$sLOCALTIME_min/$sLOCALTIME_max" in
+    0/0|/)
+       $cat >try.c <<EOCP
 #include <sys/types.h>
 #include <stdio.h>
 #include <time.h>
@@ -194,11 +200,13 @@ int main (int argc, char *argv[])
     return (0);
     } /* main */
 EOCP
-set try
-if eval $compile; then
-    eval `$run ./try`
-else
-    echo "Cannot determine sLOCALTIME_max and sLOCALTIME_min." >&4
-    fi
-$rm_try
+       set try
+       if eval $compile; then
+           eval `$run ./try`
+       else
+           echo "Cannot determine sLOCALTIME_max and sLOCALTIME_min." >&4
+           fi
+       $rm_try
+       ;;
+    esac