[Bps-public-commit] r18713 - Shipwright/trunk/share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Mar  5 18:32:20 2009
New Revision: 18713

Modified:
   Shipwright/trunk/share/bin/shipwright-builder

Log:
let's get exit value via $?>>8

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Thu Mar  5 18:32:20 2009
@@ -538,7 +538,7 @@
     $text =~ s/%%MAKE%%/PERL5OPT="-I$inc_lib -MShipwright::Util::CleanINC" $args{make}/g;
 
     `$perl -MShipwright::Util::CleanINC -e'eval { require Pod::Man}; if (\$@) { exit 1} else { exit 0 }' `;
-    my $no_podman = ! $!;
+    my $no_podman = $?>>8;
     if ($no_podman || $args{'skip-man-pages'}) {
         $text =~ s/%%MODULE_BUILD_BEFORE_BUILD_PL%%/-MShipwright::Util::PatchModuleBuild/;
         $text =~ s/%%MODULE_BUILD_BEFORE_BUILD%%/-MShipwright::Util::PatchModuleBuild/;