diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-06 15:31:03 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-06 15:31:03 +0000 |
commit | 479c52e788d24d6c6327bdcb04778616afe6dd31 (patch) | |
tree | 5afa3daf4791dedcf62ac0903cdedad54c58010f /MDK | |
parent | 72856c6628ede96ad1676015d1aea915d28870f5 (diff) | |
download | perl-MDK-Common-479c52e788d24d6c6327bdcb04778616afe6dd31.tar perl-MDK-Common-479c52e788d24d6c6327bdcb04778616afe6dd31.tar.gz perl-MDK-Common-479c52e788d24d6c6327bdcb04778616afe6dd31.tar.bz2 perl-MDK-Common-479c52e788d24d6c6327bdcb04778616afe6dd31.tar.xz perl-MDK-Common-479c52e788d24d6c6327bdcb04778616afe6dd31.zip |
(substInFile): same special case for empty files and for non-existent files
Diffstat (limited to 'MDK')
-rw-r--r-- | MDK/Common/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index 3cc7e6d..87923ee 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -132,7 +132,7 @@ sub glob_ { sub substInFile(&@) { my ($f, $file) = @_; - if (-e $file) { + if (-s $file) { local @ARGV = $file; local ($^I, $_) = ''; while (<>) { &$f($_); print } |