diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:07:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:07:30 +0000 |
| commit | e14829cc6aa3bcb315e330b1bcb5f82676fb26d3 (patch) | |
| tree | d757593d3190d53a41943ae5da29efd4db19ab35 /MDK/Common/File.pm | |
| parent | bce512bc41bf288fc6f94d3e092f525dd8541345 (diff) | |
| download | perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.gz perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.bz2 perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.xz perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.zip | |
- perl_checker: add *much* stricter syntax rules
- adapt *.pm's to those rules
Diffstat (limited to 'MDK/Common/File.pm')
| -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 3d1238c..2715855 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -107,7 +107,7 @@ sub dirname { local $_ = shift; s|[^/]*/*\s*$||; s|(.)/*$|$1|; $_ || '.' } sub basename { local $_ = shift; s|/*\s*$||; s|.*/||; $_ } sub cat_ { local *F; open F, $_[0] or return; my @l = <F>; wantarray ? @l : join '', @l } sub cat__ { my ($f) = @_; my @l = <$f>; wantarray ? @l : join '', @l } -sub output { my $f = shift; local *F; open F, ">$f" or die "output in file $f failed: $!\n"; print F foreach @_; } +sub output { my $f = shift; local *F; open F, ">$f" or die "output in file $f failed: $!\n"; print F foreach @_ } sub output_p { my $f = shift; mkdir_p(dirname($f)); output($f, @_) } sub linkf { unlink $_[1]; link $_[0], $_[1] } sub symlinkf { unlink $_[1]; symlink $_[0], $_[1] } |