[perl-Cairo] Avoid a compile-time definedness warning



commit 0a8c655b2b34819c5e3f091cd54b786de1bba2b7
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Wed Sep 25 19:56:43 2013 +0200

    Avoid a compile-time definedness warning

 inc/MakeHelper.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/inc/MakeHelper.pm b/inc/MakeHelper.pm
index 6b49b84..cc2ef28 100644
--- a/inc/MakeHelper.pm
+++ b/inc/MakeHelper.pm
@@ -140,7 +140,8 @@ EOS
            my ($name, $options) = ($1, $2);
            $name =~ s/([^_]+)/ucfirst $1/ge;
            $name =~ s/_//g;
-           $result = $name . $options;
+           $result = $name;
+           $result .= $options if defined $options;
          }
          \$result';
 


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]