Permalink
Browse files

[Tar] refactor with StringBuilder

  • Loading branch information...
1 parent 2ca3527 commit 46aa5d927921e99ba3c418e76a73e8d4ed33ca4a @fperrad fperrad committed Mar 5, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 runtime/parrot/library/Archive/Tar.pir
@@ -234,7 +234,7 @@ See L<http://search.cpan.org/~bingos/Archive-Tar/>
=cut
.sub '_format_tar_entry' :method
- $P0 = new 'ResizableStringArray'
+ $P0 = new 'StringBuilder'
$P1 = new 'FixedPMCArray'
set $P1, 1
.const string f1 = '%06o'
@@ -299,7 +299,7 @@ See L<http://search.cpan.org/~bingos/Archive-Tar/>
$P2 = getattribute self, 'prefix'
$S0 = pad_string_with_null($P2, 155)
push $P0, $S0
- $S0 = join '', $P0
+ $S0 = $P0
$I0 = compute_checksum($S0)
$P1[0] = $I0
$S1 = sprintf "%6o\0\0", $P1

0 comments on commit 46aa5d9

Please sign in to comment.