Porting/corecpan.pl -f option doesn't work

From: "Jan Dubois" <jand@activestate.com>
Message-ID: <02a101c7b784$3f79c720$be6d5560$@com>

p4raw-id: //depot/perl@31467

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 1327483..0bf3913 100644 (file)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -32,7 +32,7 @@ sub get_package_details () {
 
 getopts('fhv');
 our $opt_h and usage;
-our $opt_f or !-f $packagefile and get_package_details;
+our $opt_f || !-f $packagefile and get_package_details;
 
 # Load the package details. All of them.
 my %cpanversions;