Re: Perl stops reading __DATA__ when meeting SUB character on Windows (ddumper)

Sure it doesn't :) ... prove it

#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ path /;
path( 'yada' )->spew_raw(
"#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
while(<DATA>){
  dd( \$_ );
}
__DATA__
before sub
the \32
after sub" );


system $^X, 'yada';
path( 'yada' )->remove;
[download]

Comment on Re: Perl stops reading __DATA__ when meeting SUB character on Windows (ddumper) Download Code