diff options
| author | chromatic <chromatic@wgz.org> | 2001-09-14 03:44:57 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-14 14:49:52 +0000 |
| commit | 020b036fe37260c6d66af6e9bbd10f439a7fb2d1 (patch) | |
| tree | c06820751f03050bec1a0858719c913b81034b10 /lib | |
| parent | cd3eb553f66a5936b983b054ddc8c6e4656ff67b (diff) | |
| download | perl-020b036fe37260c6d66af6e9bbd10f439a7fb2d1.tar.gz | |
Re: [ID 20010911.001] Not OK: perl v5.7.2 +DEVEL11978 on
Message-ID: <20010914154936.70059.qmail@onion.perl.org>
p4raw-id: //depot/perl@12022
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Manifest.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t index 5bf82a70d6..6b43d73d27 100644 --- a/lib/ExtUtils/Manifest.t +++ b/lib/ExtUtils/Manifest.t @@ -19,7 +19,7 @@ my @files; sub add_file { my ($file, $data) = @_; $data ||= 'foo'; - open( my $T, ">$file") or return; + open( my $T, '>', $file) or return; print $T $data; push @files, $file; } |