[ViewVC] Diff of: cvs/cvsroot/Perl-LibExtractor/LibExtractor.pm

Comparing cvsroot/Perl-LibExtractor/LibExtractor.pm (file contents):
Revision 1.20 by root, Fri Jan 27 20:39:07 2012 UTC vs.
Revision 1.21 by root, Fri Jan 27 22:58:49 2012 UTC

 =cut
 package Perl::LibExtractor;
-our $VERSION = '1.0';
+our $VERSION = '0.1';
 use Config;
 use File::Spec ();
 use File::Temp ();
 =cut
 sub add_eval {
    my ($self, $eval) = @_;
+   (my $file = substr $eval, 0, 64) =~ s/\015?\012/\\n/g;
    my $pkg = "libextractor" . ++$self->{count};
    $eval =~ s/\x00/\x00."\\x00".q\x00/g;
-   $self->_trace ($eval,
+   $self->_trace ($file,
       "local \$^H = \$^H;" # vvvvvvvvvvvvvvvvvvvv = use strict; use utf8
       . "eval q\x00package $pkg; BEGIN { \$^H = \$^H | 0x800600 } $eval\x00; die \"\$\@\" if \$\@;\n"
    );
 }
 =cut
 sub add_core_support {
    my ($self) = @_;
-   $self->add_eval ('my $v; open my $fh, "<", \$v');
+   $self->add_eval ('
-   $self->add_eval ('my $x = chr 1234; "\u$x\U$x\l$x\L$x"; $x =~ /\d|\w|\s|\b|\R|\h|\v|$x/i');
+      # PerlIO::Scalar
+      my $v; open my $fh, "<", \$v;
+      # various unicore regex/builtin gambits
+      my $x = chr 1234;
+      "\u$x\U$x\l$x\L$x";
+      $x =~ /$_$x?/i
+         for qw(\d \w \s \b \R \h \v);
-   $self->add_eval ('split " ", chr 1234'); # usually covered by the regex above
+      split " ", $x; # usually covered by the regex above
+   ');
    $self->add_eval ('/\x{1234}(?<a>)\g{a}/') if $] >= 5.010; # usually covered by the regex above
 }
 =item $extractor->add_unicore

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines