124 |
|
# Kate Hedstrom |
125 |
|
# kate@ahab.rutgers.edu |
126 |
|
# |
127 |
+ |
use File::Spec; |
128 |
|
|
129 |
|
package source_file; |
130 |
|
|
230 |
|
foreach $file (keys %{$self->{'includes'}}) { |
231 |
|
next if $printed{$file}; |
232 |
|
$ref = $inc_files{$file}; |
233 |
< |
my $len = length($ref->{'filepath'}) + length($objdir) + 2; |
233 |
> |
$rel_path = File::Spec->abs2rel( $ref->{'filepath'} ) ; |
234 |
> |
my $len = length($rel_path) + length($objdir) + 2; |
235 |
|
if (($len_sum + $len > 80) && |
236 |
|
(length($target) + length($objdir) + 2 < $len_sum)) { |
237 |
|
print "\n" . $objdir . "/" . "$target:"; |
238 |
|
$len_sum = length($target) + length($objdir) + 2; |
239 |
|
} |
240 |
< |
print " " . $objdir . "/" . $ref->{'filepath'}; |
240 |
> |
#print " " . $objdir . "/" . $ref->{'filepath'}; |
241 |
> |
print " " . $rel_path; |
242 |
|
$printed{$file} = 1; |
243 |
|
$len_sum += $len; |
244 |
|
$len_sum = $ref->print_includes($target, $len_sum, $objdir); |