Lines Matching refs:spec
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";