comment on

So File::Copy does not preserve the attributes of the copied file. Can't we fix it?

package NewCopy; 
use strict;
use warnings;

use File::Copy;
require Exporter;
our @ISA = qw(File::Copy);
our @EXPORT = qw(copy move);
our @EXPORT_OK = qw(cp mv);

sub cp;
sub mv;

*cp = \&copy;
*mv = \&move;

no warnings;
eval {
    sub copy{
        my ($attr) = (stat( $_[0] ))[2]
            or return -1;
        return (File::Copy::copy(@_) 
              && (chmod ($attr, $_[1]) );
    }


    sub move {
        return File::Copy::move(@_)
    }
};

1;
[download]

Replace "use File::Copy" with "use NewCopy" in your script and it will give

/tmp/one is executable
/tmp/two is executable
/tmp/three is executable
[download]

In reply to Re: Pure Perl or the toolkit? by dbwiz
in thread Pure Perl or the toolkit? by Abigail-II

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl: the Markov chain saw
	PerlMonks