https://bugzilla.redhat.com/show_bug.cgi?id=1072371

Index: PSUtils.pm
--- PSUtils.pm.orig
+++ PSUtils.pm
@@ -60,7 +60,7 @@ sub singledimen {
 # Get the size of the given paper, or the default paper if no argument given.
 sub paper {
   my ($cmd, $silent) = @_;
-  unshift @{$cmd}, "paper";
+  unshift @{$cmd}, "paperconf";
   my $out;
   run3 $cmd, undef, \$out, $silent ? \undef : undef, {return_if_system_error=>1};
   Die("could not run `paper' command") if $? == -1;
@@ -73,8 +73,8 @@ sub paper {
 sub paper_size {
   my ($paper_name) = @_;
   chomp($paper_name = paper([])) unless defined($paper_name);
-  my $dimensions = paper(["--unit=pt", "$paper_name"], 1) or return;
-  $dimensions =~ / ([.0-9]+)x([.0-9]+) pt$/;
+  my $dimensions = paper(["-s", "$paper_name"], 1) or return;
+  $dimensions =~ /^([.0-9]+) ([.0-9]+)$/;
   my $old_locale = setlocale(LC_ALL);
   setlocale(LC_ALL, "");
   my ($w, $w_unparsed) = strtod($1);
