diff options
Diffstat (limited to 'models/openid-php-openid-782224d/admin/docblocks.pl')
-rw-r--r-- | models/openid-php-openid-782224d/admin/docblocks.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/models/openid-php-openid-782224d/admin/docblocks.pl b/models/openid-php-openid-782224d/admin/docblocks.pl deleted file mode 100644 index 0483dbb06..000000000 --- a/models/openid-php-openid-782224d/admin/docblocks.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/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); - } -} |