Remove Subversion Id strings

3 files changed, 1 insertions, 4 deletions

diff --git a/contrib/convert-srvtab-db b/contrib/convert-srvtab-db
index 74b19a7..8d3b31e 100755
--- a/contrib/convert-srvtab-db
+++ b/contrib/convert-srvtab-db
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-our $ID = q$Id$;
 #
 # convert-srvtab-db -- Converts a leland_srvtab database to wallet
 #
diff --git a/contrib/used-principals b/contrib/used-principals
index f5abaf0..c4a6c07 100755
--- a/contrib/used-principals
+++ b/contrib/used-principals
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-our $ID = q$Id$;
 #
 # used-principals -- Report which Kerberos v5 principals are in use.
 #
diff --git a/contrib/wallet-report b/contrib/wallet-report
index 6f09914..1abe1f8 100755
--- a/contrib/wallet-report
+++ b/contrib/wallet-report
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-$ID = q$Id$;
 #
 # wallet-report -- Report on keytabs in the wallet database.
 #
@@ -41,7 +40,7 @@ $ADDRESS = 'nobody@example.com';
 require 5.005;
 
 use strict;
-use vars qw($ADDRESS $DUMPFILE $ID @PATTERNS $REPORTS);
+use vars qw($ADDRESS $DUMPFILE @PATTERNS $REPORTS);
 
 use Getopt::Long qw(GetOptions);
 use File::Path qw(mkpath);