PPD: Better handling of defaults

ppd/PPD.pm

@@ -243,6 +243,7 @@ sub heading($) {
 
 sub get_default($) {
 	my ($o) = @_;
+	$o->{Default} and return $o->{Default};
 	for my $val (@{$o->{Values}}) {
 		return $val->{Key} if $val->{Default};
 	}

ppd/PPD/Paper.pm

@@ -82,9 +82,9 @@ sub add_papers($) {
 				Key => $k,
 				Name => ($m->{Name} // $k),
 				PS => &{$o->{PSPageSize}}($m),
-				Default => ($k eq $o->{'DefPaper'}),
 			}
-		} sort keys %real_media ]
+		} sort keys %real_media ],
+		Default => $o->{DefPaper},
 	});
 
 	option({
@@ -99,9 +99,9 @@ sub add_papers($) {
 				Key => $k,
 				Name => ($m->{Name} // $k),
 				PS => &{$o->{PSPageRegion} // $o->{PSPageSize}}($m),
-				Default => ($k eq $o->{'DefPaper'}),
 			}
-		} sort keys %real_media ]
+		} sort keys %real_media ],
+		Default => $o->{DefPaper},
 	});
 
 	option({
@@ -113,9 +113,9 @@ sub add_papers($) {
 				Key => $k,
 				Name => ($m->{Name} // $k),
 				PS => sprintf("%d %d %d %d", $margh, $margv, $m->{W} - $margh, $m->{H} - $margv),
-				Default => ($k eq $o->{'DefPaper'}),
 			}
-		} sort keys %real_media ]
+		} sort keys %real_media ],
+		Default => $o->{DefPaper},
 	});
 
 	option({
@@ -127,9 +127,9 @@ sub add_papers($) {
 				Key => $k,
 				Name => ($m->{Name} // $k),
 				PS => sprintf("%d %d", $m->{W}, $m->{H}),
-				Default => ($k eq $o->{'DefPaper'}),
 			}
-		} sort keys %real_media ]
+		} sort keys %real_media ],
+		Default => $o->{DefPaper},
 	});
 }