summaryrefslogtreecommitdiff
path: root/src/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl')
-rwxr-xr-xsrc/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl36
1 files changed, 0 insertions, 36 deletions
diff --git a/src/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl b/src/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl
deleted file mode 100755
index cd4b9303056..00000000000
--- a/src/mongo/gotools/src/github.com/mongodb/mongo-tools/vendor/go.mongodb.org/mongo-driver/etc/lintscreen.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/env perl
-use v5.10;
-use strict;
-use warnings;
-use utf8;
-use open qw/:std :utf8/;
-use Getopt::Long qw/GetOptions/;
-use List::Util qw/first/;
-
-my $update;
-GetOptions ("update|u" => \$update) or die("Error in command line arguments\n");
-
-my @whitelist;
-
-my ($whitelist_file) = shift @ARGV;
-if ( length $whitelist_file && -r $whitelist_file ) {
- open my $fh, "<", $whitelist_file or die "${whitelist_file}: $!";
- @whitelist = map {
- my ($file,$msg) = m{^([^:]+):\d+:\d+: (.*)};
- qr/\Q$file\E:\d+:\d+: \Q$msg\E/;
- } <$fh>;
-}
-
-my $out_fh = \*STDOUT;
-if ( $update ) {
- open $out_fh, ">>", $whitelist_file;
-}
-
-my $exit_code = 0;
-while (my $line = <STDIN>) {
- next if first { $line =~ $_ } @whitelist;
- $exit_code = 1;
- print {$out_fh} $line;
-}
-
-exit ($update ? 0 : $exit_code);