From 52cad781d39ee47b3e918f39900f4e11cc88b9fa Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <oswald.buddenhagen@digia.com>
Date: Fri, 12 Apr 2013 14:57:09 +0200
Subject: restore compat with older perl versions

the // operator is a tad too new.

Task-number: QTBUG-30637
Change-Id: I3672d41a4a17937ffea251f0937b09045d6c386d
Reviewed-by: Thiago Macieira <thiago.macieira@intel.com>
---
 bin/syncqt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/syncqt b/bin/syncqt
index 306c4df57a..a579cad41d 100755
--- a/bin/syncqt
+++ b/bin/syncqt
@@ -1180,7 +1180,7 @@ if($check_includes) {
                                             }
                                         }
                                     } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_BEGIN_NAMESPACE(_[A-Z_]+)?\s*$/) {
-                                        $qt_namespace_suffix = $1 // "";
+                                        $qt_namespace_suffix = defined($1) ? $1 : "";
                                         $qt_begin_namespace_found = 1;
                                     } elsif ($header_skip_qt_begin_namespace_test == 0 and $line =~ /^QT_END_NAMESPACE$qt_namespace_suffix\s*$/) {
                                         $qt_end_namespace_found = 1;
-- 
cgit v1.2.3