equal
deleted
inserted
replaced
46 my $copyrightyear = "2010"; |
46 my $copyrightyear = "2010"; |
47 my $updated = 0; |
47 my $updated = 0; |
48 my @newlines = (); |
48 my @newlines = (); |
49 |
49 |
50 my $commentstart = "//"; |
50 my $commentstart = "//"; |
51 if ($name =~ /\.(pl|pm|script|pod|ini|idf|esk|mk|cif)/i || !($name =~ /\./)) |
51 if ($name =~ /\.(pl|pm|script|pod|ini|idf|esk|mk|cif|flm)/i || !($name =~ /\./)) |
52 { |
52 { |
53 # Need to use # instead of // |
53 # Need to use # instead of // |
54 # Second part of conditional is for perl scripts that don't specify any ending |
54 # Second part of conditional is for perl scripts that don't specify any ending |
55 $commentstart = "#"; |
55 $commentstart = "#"; |
56 } |
56 } |