[groff] 01/05: * src/devices/gropdf/pdfmom.pl: Fix perl(1) warning.

[Werner LEMBERG]

wl pushed a commit to branch master
in repository groff.

commit d8c8bede1fb82dcd48ec7630b2881d9f0f2b110d
Author: Steffen Nurpmeso <address@hidden>
Date:   Thu Apr 3 07:24:32 2014 +0200

    * src/devices/gropdf/pdfmom.pl: Fix perl(1) warning.
---
 ChangeLog                    |    4 ++++
 src/devices/gropdf/pdfmom.pl |    4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4d888a5..b6c1cb3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-04-03  Steffen Nurpmeso  <address@hidden>
+
+       * src/devices/gropdf/pdfmom.pl: Fix perl(1) warning.
+
 2014-03-30  Werner LEMBERG  <address@hidden>
 
        * configure: Regenerated.
diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl
index d8ccf08..beec820 100644
--- a/src/devices/gropdf/pdfmom.pl
+++ b/src/devices/gropdf/pdfmom.pl
@@ -4,7 +4,7 @@
 #      Deri James      : Friday 16 Mar 2012
 #
 
-# Copyright (C) 2012,2013
+# Copyright (C) 2012-2014
 #      Free Software Foundation, Inc.
 #      Written by Deri James <address@hidden>
 #
@@ -82,7 +82,7 @@ while (my $c=shift)
        if (length($c) > 1)
        {
            push(@cmd,"\"$c\"");
-           push(@cmd,"'".shift."'") if length($c)==2 and 
index('dDfFIKLmMnoPrwW',substr($c,-1)) >= 0;
+           push(@cmd,"'".(shift)."'") if length($c)==2 and 
index('dDfFIKLmMnoPrwW',substr($c,-1)) >= 0;
        }
        else
        {