CBuilder/Platform/Windows.pm

118   my %spec = (
141     \$spec{source},
142     \$spec{output},
143      $spec{includes},
144      $spec{perlinc},
147   my @cmds = $self->format_compiler_cmd(%spec);
153   (my $out = $spec{output}) =~ tr/'"//d;
176   my %spec = (
192   unless ( $spec{basename} ) {
193     ($spec{basename} = $args{module_name}) =~ s/.*:://;
196   $spec{srcdir}   = File::Spec->canonpath( $spec{srcdir}   );
197   $spec{builddir} = File::Spec->canonpath( $spec{builddir} );
199   $spec{output}    ||= File::Spec->catfile( $spec{builddir},
200                                             $spec{basename}  . '.'.$cf->{dlext}   );
201   $spec{manifest}  ||= $spec{output} . '.manifest';
202   $spec{implib}    ||= File::Spec->catfile( $spec{builddir},
203                                             $spec{basename}  . $cf->{lib_ext} );
204   $spec{explib}    ||= File::Spec->catfile( $spec{builddir},
205                                             $spec{basename}  . '.exp'  );
207     $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
208                                             $spec{basename}  . '.pdb'  );
211     $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
212                                             $spec{basename}  . '.tds'  );
214   $spec{def_file}  ||= File::Spec->catfile( $spec{srcdir}  ,
215                                             $spec{basename}  . '.def'  );
216   $spec{base_file} ||= File::Spec->catfile( $spec{srcdir}  ,
217                                             $spec{basename}  . '.base' );
221     @{[ @spec{qw(manifest implib explib dbg_file def_file base_file map_file)} ]}
225     $self->normalize_filespecs( \$spec{$opt} );
229     $self->normalize_filespecs( $spec{$opt} );
232   (my $def_base = $spec{def_file}) =~ tr/'"//d;
237                   dl_base => $spec{basename} );
239   my @cmds = $self->format_linker_cmd(%spec);
244   $spec{output} =~ tr/'"//d;
246     ? grep defined, @spec{qw[output manifest implib explib dbg_file def_file map_file base_file]}
247     : $spec{output};
253   foreach my $spec ( grep defined, @specs ) {
254     if ( ref $spec eq 'ARRAY') {
255       $self->normalize_filespecs( map {\$_} grep defined, @$spec )
256     } elsif ( ref $spec eq 'SCALAR' ) {
257       $$spec =~ tr/"//d if $$spec;
258       next unless $$spec;
259       $$spec = '"' . File::Spec->canonpath($$spec) . '"';
260     } elsif ( ref $spec eq '' ) {
261       $spec = '"' . File::Spec->canonpath($spec) . '"';
263       die "Don't know how to normalize " . (ref $spec || $spec) . "\n";