Lines Matching refs:PROTOCOL
267 # use constant PROTOCOL => "2.0"; # outcommented to avoid warning on upgrade from 1.57
268 sub PROTOCOL { 2.0 }
3082 Carp::cluck("META-PROTOCOL[$CPAN::META->{PROTOCOL}]");
3084 unless ($CPAN::META->{PROTOCOL}) {
3086 $CPAN::META->{PROTOCOL} ||= "1.0";
3088 if ( $CPAN::META->{PROTOCOL} < PROTOCOL ) {
3103 local $CPAN::META->{PROTOCOL} = PROTOCOL;
3143 $CPAN::META->{PROTOCOL} = PROTOCOL;
3429 $cache->{PROTOCOL} = PROTOCOL;
3450 if (exists $cache->{PROTOCOL}) {
3451 if (PROTOCOL > $cache->{PROTOCOL}) {
3454 $cache->{PROTOCOL},
3455 PROTOCOL)
3485 $CPAN::META->{PROTOCOL} ||=
3486 $cache->{PROTOCOL}; # reading does not up or downgrade, but it