/usr/share/perl5/namespace/clean/_PP_OSE_5_8.pm is in libnamespace-clean-perl 0.22-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | package # hide from the pauses
namespace::clean::_PP_OSE_5_8;
use warnings;
use strict;
# This is the original implementation, which sadly is broken
# on perl 5.10+ withing string evals
sub on_scope_end (&) {
$^H |= 0x020000;
push @{
$^H{'__namespace::clean__guardstack__'}
||= bless ([], 'namespace::clean::_PP_SG_STACK')
}, shift;
}
package # hide from the pauses
namespace::clean::_PP_SG_STACK;
use warnings;
use strict;
sub DESTROY { $_->() for @{$_[0]} }
1;
|