| 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); |
