File: c-scan.pat

package info (click to toggle)
libapache2-mod-perl2 2.0.9~1624218-2%2Bdeb8u2
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 11,912 kB
  • ctags: 4,588
  • sloc: perl: 95,064; ansic: 14,527; makefile: 49; sh: 18
file content (16 lines) | stat: -rw-r--r-- 378 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
--- Scan.pm~	Thu Mar 23 06:14:18 2000
+++ Scan.pm	Sun Jan  7 11:56:04 2001
@@ -400,7 +400,12 @@
     } else {
       $vars = parse_vars($chunk);
     }
-    push @$struct, @$vars;
+    if ($vars) {
+      push @$struct, @$vars;
+    }
+    else {
+      warn "unable to parse chunk: `$chunk'" if $C::Scan::Warn;
+    }
   }
   $structs->{$structname} = $struct;
   $structname;