This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
metaconfig.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c6c9255
)
Replace $compile_ok by $compile since it's ok for this probe to fail.
author
Andy Dougherty
<doughera@lafayete.edu>
Wed, 6 Jun 2012 12:58:29 +0000
(08:58 -0400)
committer
Andy Dougherty
<doughera@lafayete.edu>
Wed, 6 Jun 2012 12:58:29 +0000
(08:58 -0400)
On systems where KERN_PROC_PATHNAME is not available, this probe
is expected to fail, so use $compile to throw away the error message.
U/perl/usekernprocpathname.U
patch
|
blob
|
blame
|
history
diff --git
a/U/perl/usekernprocpathname.U
b/U/perl/usekernprocpathname.U
index
2b29882
..
fcc1979
100644
(file)
--- a/
U/perl/usekernprocpathname.U
+++ b/
U/perl/usekernprocpathname.U
@@
-112,7
+112,7
@@
EOM
val=$undef
set try
-if eval $compile
_ok
; then
+if eval $compile; then
if $run ./try; then
echo "You can use sysctl with KERN_PROC_PATHNAME to find the executing program." >&4
val="$define"