File: docblocks.pl

package info (click to toggle)
php-openid 2.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 1,928 kB
  • ctags: 6,167
  • sloc: php: 22,223; python: 376; xml: 333; sh: 144; perl: 103; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 421 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/env perl -w

use strict;

my $filename = $ARGV[0];

if (!$filename) {
    print "Usage: docblocks.pl <filename>\n";
    exit(1);
}

my %allowed = ("" => 1,
               "<?php" => 1);

open(HANDLE, "<", $filename) or die "Cannot open $filename\n";

while (<HANDLE>) {
    chomp;

    if ($_ =~ /\/\*\*/) {
        exit(0);
    } elsif (!$allowed{$_}) {
        print $filename."\n";
        exit(1);
    }
}