uqmi: use unmodified upstream JSON files

[project/uqmi.git] / data / gen-common.pm

diff --git a/data/gen-common.pm b/data/gen-common.pm
index e951776e1ebb73f876a8fc30c85ad0e02baf47e2..278afce34408194643ca97ea9aabdf0fc0368d09 100644 (file)
--- a/data/gen-common.pm
+++ b/data/gen-common.pm
@@ -32,6 +32,7 @@ sub gen_cname($) {
        my $name = shift;
 
        $name =~ s/[^a-zA-Z0-9_]/_/g;
+       $name = "_${name}" if $name =~ /^\d/;
        return lc($name);
 }