Skip to content

Instantly share code, notes, and snippets.

@dolmen

dolmen/Test-Builder-compatibility-break.pl

Last active August 29, 2015 14:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dolmen/2177bb48658504956a99 to your computer and use it in GitHub Desktop.
Save dolmen/2177bb48658504956a99 to your computer and use it in GitHub Desktop.
Download ZIP
Test::Builder compatibility breakage
Raw
Test-Builder-compatibility-break.pl
use strict;
use warnings;
use Test::More tests => 1;
use B;
my $x = \(my $y);
# In newer TB, the reference to note's argument is kept and breaks the following test
note $x;
is(B::svref_2object($x)->REFCNT, 2, "refcnt=2");
done_testing;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment