Changeset 10134 for vendors/FCM/lib/Fcm/CfgFile.pm

Timestamp:

2018-09-17T15:05:46+02:00 (6 years ago)

Author:

dguibert

Message:

fcm: fix fortran interface generation with perl 5.12+

this patch applies both patches from:

• ​https://github.com/metomi/fcm/pull/156/commits/393d3e88d38ebce3511508666758c6a1a8a0fd64
• ​https://github.com/matthewrmshin/fcm/commit/062e2c8df52cade01e4d7790c5700980ffd957b3

File:

• vendors/FCM/lib/Fcm/CfgFile.pm (modified) (1 diff)

vendors/FCM/lib/Fcm/CfgFile.pm

@@ -232 +232 @@
     }
 
-    if (exists $exp_inc{uc ($self->type)} and
-        uc ($start ? $start->label : $label) eq $self->cfglabel ('INC') and
-        not defined $cont) {
+    if (    defined($self->type())
+        &&  exists($exp_inc{uc($self->type())})
+        &&  uc($start ? $start->label() : $label) eq $self->cfglabel('INC')
+        &&  !defined($cont)
+    ) {
       # Current configuration file requires expansion of INC declarations
       # The start/current line is an INC declaration