[PATCH] [bug #65111] "warning: Using nospace mode for font 'EURO'"

[G. Branden Robinson]

Hi Deri,

I have another patch for gropdf.

I tried, but my Perl may not be idiomatic; a couple of attempts to do
simple things failed because the language and I appear to have different
ideas about where to draw the statement/expression dichotomy, and how to
express anonymous list literals.

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index a55de5569..10e36c145 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -2931,9 +2931,21 @@ sub ParsePDFArray
     return($rtn);
 }

+sub Notice
+{
+    if ($debug)
+    {
+       unshift(@_, "debug: ");
+       my $msg=join('',@_);
+       Msg(0,$msg);
+    }
+}
+
 sub Warn
 {
-    Msg(0,(@_));
+    unshift(@_, "warning: ");
+    my $msg=join('',@_);
+    Msg(0,$msg);
 }

 sub Die
@@ -2953,10 +2965,6 @@ sub Msg
     {
        print STDERR "fatal error: ";
     }
-    else
-    {
-       print STDERR "warning: ";
-    }

Ok to push?

Regards,
Branden

signature.asc
Description: PGP signature