_I|Mjq؂File not found. File not found. a=JJj"Tz!)FFile not found.   _I|Mdv &K Index of /FSS-BCZ/root/sys/dev/char/5:2/subsystem/console

Index of /FSS-BCZ/root/sys/dev/char/5:2/subsystem/console

 NameLast modifiedSizeDescription
 Parent Directory   -  
 uevent 2026-10-22 10:57 4.0K 
 dev 2026-10-22 10:57 4.0K 
 power/ 2026-10-22 10:35 -  
 subsystem/ 2026-10-21 14:32 -  
 active 2026-10-21 14:32 4.0K 
% lze67}LZ7 q? # Devel::Peek - A data debugging tool for the XS programmer # The documentation is after the __END__ package Devel::Peek; $VERSION = '1.28'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; require Exporter; require XSLoader; @ISA = qw(Exporter); @EXPORT = qw(Dump mstat DeadCode DumpArray DumpWithOP DumpProg fill_mstats mstats_fillhash mstats2hash runops_debug debug_flags); @EXPORT_OK = qw(SvREFCNT CvGV); %EXPORT_TAGS = ('ALL' => [@EXPORT, @EXPORT_OK]); XSLoader::load(); sub import { my $c = shift; my $ops_rx = qr/^:opd(=[stP]*)?\b/; my @db = grep m/$ops_rx/, @_; @_ = grep !m/$ops_rx/, @_; if (@db) { die "Too many :opd options" if @db > 1; runops_debug(1); my $flags = ($db[0] =~ m/$ops_rx/ and $1); $flags = 'st' unless defined $flags; my $f = 0; $f |= 2 if $flags =~ /s/; $f |= 8 if $flags =~ /t/; $f |= 64 if $flags =~ /P/; $^D |= $f if $f; } unshift @_, $c; goto &Exporter::import; } sub DumpWithOP ($;$) { local($Devel::Peek::dump_ops)=1; my $depth = @_ > 1 ? $_[1] : 4 ; Dump($_[0],$depth); } $D_flags = 'psltocPmfrxuLHXDSTR'; sub debug_flags (;$) { my $out = ""; for my $i (0 .. length($D_flags)-1) { $out .= substr $D_flags, $i, 1 if $^D & (1<<$i); } my $arg = shift; my $num = $arg; if (defined $arg and $arg =~ /\D/) { die "unknown flags in debug_flags()" if $arg =~ /[^-$D_flags]/; my ($on,$off) = split /-/, "$arg-"; $num = $^D; $num |= (1<deparse($op->first, 6); my $sib = $op->first->sibling; if (ref $sib ne 'B::NULL') { push @kids, $deparse->deparse($sib, 6); } return "Devel::Peek::Dump(" . join(", ", @kids) . ")"; } 1; __END__ =head1 NAME Devel::Peek - A data debugging tool for the XS programmer =head1 SYNOPSIS use Devel::Peek; Dump( $a ); Dump( $a, 5 ); Dump( @a ); Dump( %h ); DumpArray( 5, $a, $b, ... ); mstat "Point 5"; use Devel::Peek ':opd=st'; =h