diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-28 10:37:20 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-28 10:37:20 +0000 |
commit | f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233 (patch) | |
tree | 9abc27afbd30d6b6943e760d76790b02a244e6bf /MDK | |
parent | dffd700efe1911070c853790462b33a48a07eefd (diff) | |
download | perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.gz perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.bz2 perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.tar.xz perl-MDK-Common-f6b8152ed9f18ec3c364b9b5482f0fd0a6d46233.zip |
- perl_checker: add some more Gtk2 functions
- MDK::Common::File: mkdir_p, rm_rf and cp_af returns 1 on success
(allowing "eval { mkdir_p() } or ...")
Diffstat (limited to 'MDK')
-rw-r--r-- | MDK/Common/File.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index 49225a1..cc5f3b6 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -140,6 +140,7 @@ sub mkdir_p { mkdir_p(dirname($dir)); mkdir($dir, 0755) or die "mkdir: error creating directory $dir: $!\n"; } + 1; } sub rm_rf { @@ -151,6 +152,7 @@ sub rm_rf { unlink $_ or die "rm of $_ failed: $!\n"; } } + 1; } sub cp_af { @@ -179,6 +181,7 @@ sub cp_af { chmod((stat($src))[2], $dest); } } + 1; } sub touch { |