@@ -107,28 +107,28 @@ A list of F<typemap> pathnames.
107107
108108=cut
109109
110- sub standard_typemap_locations {
111- my $include_ref = shift ;
112-
113- my @tm = qw( typemap) ;
114-
115- my $updir = File::Spec-> updir();
116- foreach my $dir (
117- File::Spec-> catdir(($updir ) x 1 ),
118- File::Spec-> catdir(($updir ) x 2 ),
119- File::Spec-> catdir(($updir ) x 3 ),
120- File::Spec-> catdir(($updir ) x 4 ),
121- ) {
122- unshift @tm , File::Spec-> catfile($dir , ' typemap' );
123- unshift @tm , File::Spec-> catfile($dir , lib => ExtUtils => ' typemap' );
124- }
110+ sub standard_typemap_locations {
111+ my $include_ref = shift ;
112+
113+ my @tm = qw( typemap) ;
114+
115+ my $updir = File::Spec-> updir();
116+ foreach my $dir (
117+ File::Spec-> catdir(($updir ) x 1 ),
118+ File::Spec-> catdir(($updir ) x 2 ),
119+ File::Spec-> catdir(($updir ) x 3 ),
120+ File::Spec-> catdir(($updir ) x 4 ),
121+ ) {
122+ unshift @tm , File::Spec-> catfile($dir , ' typemap' );
123+ unshift @tm , File::Spec-> catfile($dir , lib => ExtUtils => ' typemap' );
124+ }
125125
126- foreach my $dir (@{ $include_ref }) {
127- my $file = File::Spec-> catfile($dir , ExtUtils => ' typemap' );
128- unshift @tm , $file ;
129- }
130- return @tm ;
126+ foreach my $dir (@{ $include_ref }) {
127+ my $file = File::Spec-> catfile($dir , ExtUtils => ' typemap' );
128+ unshift @tm , $file ;
131129 }
130+ return @tm ;
131+ }
132132
133133=head2 C<trim_whitespace() >
134134
0 commit comments