Skip to content
This repository
Browse code

[Tar] refactor with StringBuilder

  • Loading branch information...
commit 46aa5d927921e99ba3c418e76a73e8d4ed33ca4a 1 parent 2ca3527
François Perrad authored March 05, 2011

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  runtime/parrot/library/Archive/Tar.pir
4  runtime/parrot/library/Archive/Tar.pir
@@ -234,7 +234,7 @@ See L<http://search.cpan.org/~bingos/Archive-Tar/>
234 234
 =cut
235 235
 
236 236
 .sub '_format_tar_entry' :method
237  
-    $P0 = new 'ResizableStringArray'
  237
+    $P0 = new 'StringBuilder'
238 238
     $P1 = new 'FixedPMCArray'
239 239
     set $P1, 1
240 240
     .const string f1 = '%06o'
@@ -299,7 +299,7 @@ See L<http://search.cpan.org/~bingos/Archive-Tar/>
299 299
     $P2 = getattribute self, 'prefix'
300 300
     $S0 = pad_string_with_null($P2, 155)
301 301
     push $P0, $S0
302  
-    $S0 = join '', $P0
  302
+    $S0 = $P0
303 303
     $I0 = compute_checksum($S0)
304 304
     $P1[0] = $I0
305 305
     $S1 = sprintf "%6o\0\0", $P1

0 notes on commit 46aa5d9

Please sign in to comment.
Something went wrong with that request. Please try again.