This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20010911.001] Not OK: perl v5.7.2 +DEVEL11978 on
authorchromatic <chromatic@wgz.org>
Fri, 14 Sep 2001 09:44:57 +0000 (03:44 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 14 Sep 2001 14:49:52 +0000 (14:49 +0000)
Message-ID: <20010914154936.70059.qmail@onion.perl.org>

p4raw-id: //depot/perl@12022

lib/ExtUtils/Manifest.t

index 5bf82a7..6b43d73 100644 (file)
@@ -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;
 }