view release on metacpan or  search on metacpan

myld  view on Meta::CPAN

use strict;
use Data::Dumper;

# fix to get link on Mac OSX to work!
if ($ARGV[0] =~ /MACOSX/)
{
  my ($macenv, $macenvval) = split('=',$ARGV[0]);;
  $ENV{$macenv} = $macenvval;
  shift @ARGV;
}
open(OLDSTDERR, ">&STDERR") || die "Failed to backup STDERR: $!";
open(FILE, ">myld.stderr") || die "Failed to create myld.stderr: $!";
open(STDERR, ">&FILE") || die "Failed to redirect STDERR: $!";
my $retval = system(@ARGV);

open(STDERR, ">&OLDSTDERR");
close(FILE) || die "Failed to close myld.stderr: $!";
my $contents = "";
if (-f "myld.stderr"  &&  !-z _) {
  open(FILE, "<myld.stderr") || die "Failed to reopen myld.stderr: $!";
  local $/ = undef;