ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Faster/Faster.pm
(Generate patch)

Comparing Faster/Faster.pm (file contents):
Revision 1.21 by root, Fri Mar 10 22:39:11 2006 UTC vs.
Revision 1.22 by root, Fri Mar 10 22:41:47 2006 UTC

… …
40use strict; 40use strict;
41use Config; 41use Config;
42use B (); 42use B ();
43#use Digest::MD5 (); 43#use Digest::MD5 ();
44use DynaLoader (); 44use DynaLoader ();
45use File::Temp ();
45 46
46BEGIN { 47BEGIN {
47 our $VERSION = '0.01'; 48 our $VERSION = '0.01';
48 49
49 require XSLoader; 50 require XSLoader;
… …
300 if ($op->flags & B::OPf_MOD) { 301 if ($op->flags & B::OPf_MOD) {
301 if ($op->private & B::OPpLVAL_INTRO) { 302 if ($op->private & B::OPpLVAL_INTRO) {
302 $source .= " SAVECLEARSV (PAD_SVl ((PADOFFSET)$targ));\n"; 303 $source .= " SAVECLEARSV (PAD_SVl ((PADOFFSET)$targ));\n";
303 } elsif ($op->private & B::OPpDEREF) { 304 } elsif ($op->private & B::OPpDEREF) {
304 my $deref = $op->private & B::OPpDEREF; 305 my $deref = $op->private & B::OPpDEREF;
305 $source .= " Perl_vivify_ref (PAD_SVl ((PADOFFSET)$targ), $deref);\n"; 306 $source .= " Perl_vivify_ref (aTHX_ PAD_SVl ((PADOFFSET)$targ), $deref);\n";
306 } 307 }
307 } 308 }
308 $source .= <<EOF; 309 $source .= <<EOF;
309 } 310 }
310EOF 311EOF

Diff Legend

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