"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "cpan/Scalar-List-Utils/lib/Scalar/Util.pm" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

Util.pm  (perl-5.32.0-RC0.tar.xz):Util.pm  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 20 skipping to change at line 20
use warnings; use warnings;
require Exporter; require Exporter;
our @ISA = qw(Exporter); our @ISA = qw(Exporter);
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
blessed refaddr reftype weaken unweaken isweak blessed refaddr reftype weaken unweaken isweak
dualvar isdual isvstring looks_like_number openhandle readonly set_prototype dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
tainted tainted
); );
our $VERSION = "1.53"; our $VERSION = "1.55";
$VERSION =~ tr/_//d; $VERSION =~ tr/_//d;
require List::Util; # List::Util loads the XS require List::Util; # List::Util loads the XS
List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863 ) List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863 )
our @EXPORT_FAIL; our @EXPORT_FAIL;
unless (defined &weaken) { unless (defined &weaken) {
push @EXPORT_FAIL, qw(weaken); push @EXPORT_FAIL, qw(weaken);
} }
skipping to change at line 137 skipping to change at line 137
returned as a plain string (such as C<ARRAY> or C<HASH>). Otherwise C<undef> returned as a plain string (such as C<ARRAY> or C<HASH>). Otherwise C<undef>
is returned. is returned.
$type = reftype "string"; # undef $type = reftype "string"; # undef
$type = reftype \$var; # SCALAR $type = reftype \$var; # SCALAR
$type = reftype []; # ARRAY $type = reftype []; # ARRAY
$obj = bless {}, "Foo"; $obj = bless {}, "Foo";
$type = reftype $obj; # HASH $type = reftype $obj; # HASH
Note that for internal reasons, all precompiled regexps (C<qr/.../>) are
blessed references; thus C<ref()> returns the package name string C<"Regexp">
on these but C<reftype()> will return the underlying C structure type of
C<"REGEXP"> in all capitals.
=head2 weaken =head2 weaken
weaken( $ref ); weaken( $ref );
The lvalue C<$ref> will be turned into a weak reference. This means that it The lvalue C<$ref> will be turned into a weak reference. This means that it
will not hold a reference count on the object it references. Also, when the will not hold a reference count on the object it references. Also, when the
reference count on that object reaches zero, the reference will be set to reference count on that object reaches zero, the reference will be set to
undef. This function mutates the lvalue passed as its argument and returns no undef. This function mutates the lvalue passed as its argument and returns no
value. value.
 End of changes. 2 change blocks. 
1 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)