Re^4: print copy source and destination

If you want an "invisible" wrapper (useful for instance if the 'copy' function uses Carp), replace the 'return' by 'goto'.

Comment on Re^4: print copy source and destination

Replies are listed 'Best First'.

Re^5: print copy source and destination
by Jenda (Abbot) on Oct 02, 2008 at 02:00 UTC

{ my $old = \&copy; 
  *copy = sub { 
    print "copy( '$_[0]', '$_[1]')\n";
    goto &$old
   }
};
[download]