$file =~ s/(?<!\\)((\\\\)*)"/$1\\"/g;
my @errs;
+ my $hook = sub { push @errs, [ @_ ] };
+
my $wrapper = <<" WRAPPER";
return;
package main;
- my \$hook;
- BEGIN { \$hook = sub { push \@errs, [ \@_ ] } }
no strict;
no warnings;
no indirect hook => \$hook;
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.