N
no
Can this be done? Should right? Well its not working =(
What's goin on?
my $a = '
$VAR1 = bless( {
'read_limit' => 3000,
'outbuffer' => '',
'write_limit' => 3000,
'index' => 0,
'inbuffer' => '',
'handle' => bless( \*Symbol::GEN1, 'IO::Socket::INET' ),
'writeonly' => undef,
'eof' => 0,
'choker' => undef,
'choked' => 0,
'error' => 0,
'linemode' => 0,
'sset' => bless( {
'sessions' => {
'IO::Socket::INET=GLOB(0x1a4
c120)' => $VAR1
},
'listen_socket' => bless(
\*Symbol::GEN0, 'I
O::Socket::INET' ),
'writers' => bless( [
undef,
0
], 'IO::Select' ),
'readers' => bless( [
'?',
2,
undef,
undef,
undef,
$VAR1->{'sset'}{'liste
n_socket'},
$VAR1->{'handle'}
], 'IO::Select' )
}, 'IO::LineBufferedSet' )
}, 'IO::LineBufferedSessionData' );
$VAR1 = undef;
';
print $a;
What's goin on?
my $a = '
$VAR1 = bless( {
'read_limit' => 3000,
'outbuffer' => '',
'write_limit' => 3000,
'index' => 0,
'inbuffer' => '',
'handle' => bless( \*Symbol::GEN1, 'IO::Socket::INET' ),
'writeonly' => undef,
'eof' => 0,
'choker' => undef,
'choked' => 0,
'error' => 0,
'linemode' => 0,
'sset' => bless( {
'sessions' => {
'IO::Socket::INET=GLOB(0x1a4
c120)' => $VAR1
},
'listen_socket' => bless(
\*Symbol::GEN0, 'I
O::Socket::INET' ),
'writers' => bless( [
undef,
0
], 'IO::Select' ),
'readers' => bless( [
'?',
2,
undef,
undef,
undef,
$VAR1->{'sset'}{'liste
n_socket'},
$VAR1->{'handle'}
], 'IO::Select' )
}, 'IO::LineBufferedSet' )
}, 'IO::LineBufferedSessionData' );
$VAR1 = undef;
';
print $a;