I did change ScanDeps.pm as you suggest, you may find the output (together with 
pp listing) here:

http://homeweb3.unifr.ch/rappazf/Pub/listing_pp_test5.zip

but all are of the form $var->clone();
and not clone::xxx


François

From: [email protected] [mailto:[email protected]] On Behalf Of 
Roderich Schupp
Sent: mardi, 23. septembre 2014 11:21
To: RAPPAZ Francois
Cc: [email protected]
Subject: Re: use clone -> crash my exe

On Tue, Sep 23, 2014 at 9:53 AM, RAPPAZ Francois 
<[email protected]<mailto:[email protected]>> wrote:
C:\strawberry\perl\site\lib>findstr /NS ::clone *.pm

I'd rather search for  "clone::" and also "clone->" instead, eg. a statement 
like "$var = clone::whatever()" can trigger your problem.

Or you can instrument Module/ScanDeps.pm:

at line ~761 (in sub scan_file) add

sub scan_file{
    my $file = shift;
    print STDERR "scan_file($file)\n";   # <---

at line ~1000 (in sub scan_chunk) add

    return unless defined($module);
     { my $m = ref($module) ? "@$module" : $module; print STDERR 
"scan_chunk($chunk) => $m\n" if $m =~ /\bclone\b/; }        # <---
     return wantarray ? @$module : $module->[0] if ref($module);

and re-run scandeps.pl<http://scandeps.pl> or pp on your script (w/o cache).


Cheers, Roderich

Reply via email to