summaryrefslogtreecommitdiffstats
path: root/lib/MDK/Common
diff options
context:
space:
mode:
authorEugeni Dodonov <eugeni@mandriva.org>2011-02-02 15:44:42 +0000
committerEugeni Dodonov <eugeni@mandriva.org>2011-02-02 15:44:42 +0000
commitb4bfde329e969407a2d5333f83b5e3373dd860e1 (patch)
treef63c2132798026eee7a3dbd16dc2f16dd02b0af6 /lib/MDK/Common
parent7314609cd930ffce9badcf16157855fa0c7d28cb (diff)
downloadperl-MDK-Common-b4bfde329e969407a2d5333f83b5e3373dd860e1.tar
perl-MDK-Common-b4bfde329e969407a2d5333f83b5e3373dd860e1.tar.gz
perl-MDK-Common-b4bfde329e969407a2d5333f83b5e3373dd860e1.tar.bz2
perl-MDK-Common-b4bfde329e969407a2d5333f83b5e3373dd860e1.tar.xz
perl-MDK-Common-b4bfde329e969407a2d5333f83b5e3373dd860e1.zip
Revert previous commit, easier to do it elsewhere.
Diffstat (limited to 'lib/MDK/Common')
-rw-r--r--lib/MDK/Common/File.pm7
1 files changed, 1 insertions, 6 deletions
diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm
index 8c1659b..48fd702 100644
--- a/lib/MDK/Common/File.pm
+++ b/lib/MDK/Common/File.pm
@@ -83,10 +83,6 @@ 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)
@@ -143,7 +139,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 cp_afx 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 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|; $_ || '.' }
@@ -234,7 +230,6 @@ 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) = @_;