[ SEA-GHOST MINI SHELL]

Path : /proc/2/task/2/cwd/proc/2/cwd/proc/2/cwd/usr/share/perl5/ExtUtils/CBuilder/Platform/
FILE UPLOADER :
Current File : //proc/2/task/2/cwd/proc/2/cwd/proc/2/cwd/usr/share/perl5/ExtUtils/CBuilder/Platform/dec_osf.pm

package ExtUtils::CBuilder::Platform::dec_osf;

use strict;
use ExtUtils::CBuilder::Platform::Unix;
use File::Spec;

use vars qw($VERSION @ISA);
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
$VERSION = '0.280206';

sub link_executable {
  my $self = shift;
  # $Config{ld} is 'ld' but that won't work: use the cc instead.
  local $self->{config}{ld} = $self->{config}{cc};
  return $self->SUPER::link_executable(@_);
}

1;

SEA-GHOST - SHELL CODING BY SEA-GHOST