diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-17 13:09:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-17 13:09:11 +0000 |
| commit | 0557e702a03474955bf16acbb6fff6f5353f8b74 (patch) | |
| tree | f4dd2f65ab26e2d424fe58a47f31794e246ae872 /MDK | |
| parent | 1a5b978da98890aab1ff1d6200ca290e1bab0dc8 (diff) | |
| download | perl-MDK-Common-0557e702a03474955bf16acbb6fff6f5353f8b74.tar perl-MDK-Common-0557e702a03474955bf16acbb6fff6f5353f8b74.tar.gz perl-MDK-Common-0557e702a03474955bf16acbb6fff6f5353f8b74.tar.bz2 perl-MDK-Common-0557e702a03474955bf16acbb6fff6f5353f8b74.tar.xz perl-MDK-Common-0557e702a03474955bf16acbb6fff6f5353f8b74.zip | |
do not export concat_symlink anymore, it's internal only
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common/File.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index a548237..3cc7e6d 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -58,11 +58,6 @@ simple version of C<glob>: doesn't handle wildcards in directory (eg: executes the code for each line of the file. You can know the end of the file is reached using C<eof> -=item concat_symlink(DIRNAME, RELATIVE LINK) - -concat dirname and the symlink and removes "../" if possible: -C<concat_symlink("/usr/bin", "../../bin/ls")> gives "/bin/ls" - =item expand_symlinks(FILENAME) expand the symlinks in the absolute filename: @@ -89,7 +84,7 @@ package MDK::Common::File; use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); @ISA = qw(Exporter); -@EXPORT_OK = qw(dirname basename cat_ cat__ output linkf symlinkf renamef touch all glob_ substInFile concat_symlink expand_symlinks openFileMaybeCompressed catMaybeCompressed); +@EXPORT_OK = qw(dirname basename cat_ cat__ output linkf symlinkf renamef touch all glob_ substInFile expand_symlinks openFileMaybeCompressed catMaybeCompressed); %EXPORT_TAGS = (all => [ @EXPORT_OK ]); sub dirname { local $_ = shift; s|[^/]*/*\s*$||; s|(.)/*$|$1|; $_ || '.' } |