summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorEugeni Dodonov <eugeni@mandriva.org>2011-02-02 15:29:20 +0000
committerEugeni Dodonov <eugeni@mandriva.org>2011-02-02 15:29:20 +0000
commit7314609cd930ffce9badcf16157855fa0c7d28cb (patch)
tree99bd56e4767d4c14b07dcf10b62c92bba7560500 /lib
parent5e08cfb5db18b8a95978363cd0e612119958cd6c (diff)
downloadperl-MDK-Common-7314609cd930ffce9badcf16157855fa0c7d28cb.tar
perl-MDK-Common-7314609cd930ffce9badcf16157855fa0c7d28cb.tar.gz
perl-MDK-Common-7314609cd930ffce9badcf16157855fa0c7d28cb.tar.bz2
perl-MDK-Common-7314609cd930ffce9badcf16157855fa0c7d28cb.tar.xz
perl-MDK-Common-7314609cd930ffce9badcf16157855fa0c7d28cb.zip
1.2.27:
- add cp_afx command
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common.pm.pl2
-rw-r--r--lib/MDK/Common/File.pm7
2 files changed, 7 insertions, 2 deletions
diff --git a/lib/MDK/Common.pm.pl b/lib/MDK/Common.pm.pl
index adec57b..7a61a60 100644
--- a/lib/MDK/Common.pm.pl
+++ b/lib/MDK/Common.pm.pl
@@ -73,7 +73,7 @@ our @ISA = qw(Exporter);
# perl_checker: RE-EXPORT-ALL
our @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::;
-our $VERSION = "1.2.26.1";
+our $VERSION = "1.2.27";
1;
EOF
diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm
index 48fd702..8c1659b 100644
--- a/lib/MDK/Common/File.pm
+++ b/lib/MDK/Common/File.pm
@@ -83,6 +83,10 @@ just like "cp -f"
just like "cp -af"
+=item cp_afx(FILES, DEST)
+
+just like "cp -afx"
+
=item linkf(SOURCE, DESTINATION)
=item symlinkf(SOURCE, DESTINATION)
@@ -139,7 +143,7 @@ use File::Sync qw(fsync);
use Exporter;
our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(dirname basename cat_ cat_utf8 cat_or_die cat_utf8_or_die cat__ output output_p output_with_perm append_to_file linkf symlinkf renamef mkdir_p rm_rf cp_f cp_af touch all all_files_rec glob_ substInFile expand_symlinks openFileMaybeCompressed catMaybeCompressed);
+our @EXPORT_OK = qw(dirname basename cat_ cat_utf8 cat_or_die cat_utf8_or_die cat__ output output_p output_with_perm append_to_file linkf symlinkf renamef mkdir_p rm_rf cp_f cp_af cp_afx touch all all_files_rec glob_ substInFile expand_symlinks openFileMaybeCompressed catMaybeCompressed);
our %EXPORT_TAGS = (all => [ @EXPORT_OK ]);
sub dirname { local $_ = shift; s|[^/]*/*\s*$||; s|(.)/*$|$1|; $_ || '.' }
@@ -230,6 +234,7 @@ sub cp_with_option {
sub cp_f { cp_with_option('f', @_) }
sub cp_af { cp_with_option('af', @_) }
+sub cp_afx { cp_with_option('afx', @_) }
sub touch {
my ($f) = @_;