[RT #122371] Remove improperly-placed weaken statements

Changes

@@ -1,7 +1,10 @@
 {{$NEXT}}
 
-    - [RT #122372] Fix weakening when a page is added to the end of a multiple
-      page document (reported by Phil Perry).
+    - [RT #122371] Remove a couple of improperly-placed weaken
+      statements (reported by Phil Perry).
+
+    - [RT #122372] Fix weakening when a page is added to the end of a
+      multiple page document (reported by Phil Perry).
 
     - Fix Bank Gothic core font (reported by Phil Perry).
 

lib/PDF/API2/Basic/PDF/File.pm

@@ -867,7 +867,7 @@ sub out_obj {
     # in the hash) (which is super-fast).
     unless (exists $self->{' outlist_cache'}{$obj}) {
         push @{$self->{' outlist'}}, $obj;
-        weaken $self->{' outlist'}->[-1];
+        # weaken $self->{' outlist'}->[-1];
         $self->{' outlist_cache'}{$obj} = 1;
     }
     return $obj;
@@ -1106,7 +1106,7 @@ sub add_obj {
 
     $self->{' objcache'}{$num, $gen} = $obj;
     $self->{' objects'}{$obj->uid()} = [$num, $gen];
-    weaken $self->{' objcache'}{$num, $gen};
+    # weaken $self->{' objcache'}{$num, $gen};
     return $obj;
 }
 

t/circular-references.t

@@ -1,4 +1,5 @@
 use Test::More;
+use Test::Exception;
 
 use strict;
 use warnings;
@@ -29,4 +30,12 @@ $page = $pdf->page(1);
 ok(isweak($pdf->{'pagestack'}->[1]),
    q{A spliced page is marked as weakened in the page stack});
 
+# Font out of scope
+
+{
+    $pdf->corefont('Helvetica');
+}
+
+lives_ok(sub { $pdf->stringify() }, 'Font added inside a black is still present on save');
+
 done_testing();