develooper Front page | perl.perl5.porters | Postings from September 2003

[PATCH] perl-5.8.1 hints/powerux.sh, ext/Sys/Syslog/t/syslog.t

Thread Next
From:
Tom Horsley
Date:
September 29, 2003 06:42
Subject:
[PATCH] perl-5.8.1 hints/powerux.sh, ext/Sys/Syslog/t/syslog.t
Message ID:
200309291300.NAA23856@amber2.ccur.com
Now that there is a 5.8.2 pumpking, it is obviously time to start generating
patches :-).

Need to patch powerux hints file to get nanosleep loaded into the core a.out
part of perl so the hi res timer stuff will be happy when it dynamically
loads.

PowerMAX OS is basically derived from SVR4, so I get weird warnings in the
syslog.t test unless I add powerux to the list with solaris et. al. (Though
I agree with the comment in the test that a better check would be nice, I
just have no idea how to come up with one :-).

*** hints/powerux.sh	Thu Sep 25 14:45:37 2003
--- hints/powerux.sh	Thu Sep 25 14:47:27 2003
***************
*** 52,62 ****
  # of perl (there are probably more of these that might be useful, but
  # for the extensions I build, this turned out to be enough). The -uldexp
  # makes sure the custom ldexp.o I add to archobjs actually gets pulled
! # into perl from libperl.a
  #
  cc='/usr/ccs/bin/ec'
  cccdlflags='-Zpic'
! ccdlflags='-Zlink=dynamic -Wl,-usys_nerr -Wl,-uldexp -Wl,-Bexport'
  lddlflags='-Zlink=so'
  
  # Sigh... Various versions of Power MAX went out with a broken ldexp runtime
--- 52,62 ----
  # of perl (there are probably more of these that might be useful, but
  # for the extensions I build, this turned out to be enough). The -uldexp
  # makes sure the custom ldexp.o I add to archobjs actually gets pulled
! # into perl from libperl.a The -unanosleep makes Timer::HiRes happy.
  #
  cc='/usr/ccs/bin/ec'
  cccdlflags='-Zpic'
! ccdlflags='-Zlink=dynamic -Wl,-usys_nerr -Wl,-uldexp -Wl,-unanosleep -Wl,-Bexport'
  lddlflags='-Zlink=so'
  
  # Sigh... Various versions of Power MAX went out with a broken ldexp runtime
*** ext/Sys/Syslog/t/syslog.t	Fri Sep 26 15:31:17 2003
--- ext/Sys/Syslog/t/syslog.t	Fri Sep 26 15:31:08 2003
***************
*** 49,55 ****
      if (-e Sys::Syslog::_PATH_LOG()) {
  	# The only known $^O eq 'svr4' that needs this is NCR MP-RAS,
  	# but assuming 'stream' in SVR4 is probably not that bad.
!         if ($^O =~ /^(solaris|irix|svr4)$/) {
              # we should check for stream support here, not for solaris/irix
              print defined(eval { setlogsock('stream') }) ? "ok 1\n" : "not ok 1 # $!\n";
          } else { 
--- 49,55 ----
      if (-e Sys::Syslog::_PATH_LOG()) {
  	# The only known $^O eq 'svr4' that needs this is NCR MP-RAS,
  	# but assuming 'stream' in SVR4 is probably not that bad.
!         if ($^O =~ /^(solaris|irix|svr4|powerux)$/) {
              # we should check for stream support here, not for solaris/irix
              print defined(eval { setlogsock('stream') }) ? "ok 1\n" : "not ok 1 # $!\n";
          } else { 

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About