summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS4
-rw-r--r--lib/MDK/Common.pm.pl2
-rw-r--r--lib/MDK/Common/File.pm7
3 files changed, 2 insertions, 11 deletions
diff --git a/NEWS b/NEWS
index b026727..73f64ae 100644
--- a/NEWS
+++ b/NEWS
@@ -1,7 +1,3 @@
-Version 1.2.27 - 2 February 2011, by Eugeni Dodonov
-
-- add cp_afx command
-
Version 1.2.26.1 - 24 October 2010, by Thierry Vignaud
- append_to_file: better error message making easier to pinpoint actual place
diff --git a/lib/MDK/Common.pm.pl b/lib/MDK/Common.pm.pl
index 7a61a60..adec57b 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.27";
+our $VERSION = "1.2.26.1";
1;
EOF
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) = @_;