X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FFilter%2FNames.pm;h=cafa72c02d6bf0eb5b6cb9cc796f18a7060f48f9;hb=ba506e52c480afe33dfec6b38a12759fad1e7fa2;hp=dee345c0f86d74ec094d95334b40b394eb40ce1b;hpb=478f608d9028508396da37bb5df10b3057b96981;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Filter/Names.pm b/lib/SQL/Translator/Filter/Names.pm
index dee345c..cafa72c 100644
--- a/lib/SQL/Translator/Filter/Names.pm
+++ b/lib/SQL/Translator/Filter/Names.pm
@@ -1,8 +1,6 @@
 package SQL::Translator::Filter::Names;
 
 # -------------------------------------------------------------------
-# $Id$
-# -------------------------------------------------------------------
 # Copyright (C) 2002-2009 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
@@ -49,7 +47,7 @@ SQL::Translator::Filter::Names - Tweak the names of schema objects.
 
 use strict;
 use vars qw/$VERSION/;
-$VERSION=0.1;
+$VERSION = '1.60';
 
 sub filter {
     my $schema = shift;
@@ -101,15 +99,17 @@ sub _getfunc {
 
 
 # The name munging functions
-#=============================================================================
-# Get called with name to munge as first arg and return the new name. Die on
-# errors.
+# -------------------------------------------------------------------------
+# Get called with name to munge as first arg and return the new name. Die 
+# on errors.
 
 sub lc { lc shift; }
 sub uc { uc shift; }
 sub ucfirst { ucfirst shift; }
 
-1; #==========================================================================
+1; 
+
+# -------------------------------------------------------------------------
 
 __END__
 
@@ -119,8 +119,6 @@ __END__
 
 L<perl(1)>, L<SQL::Translator>
 
-=head1 BUGS
-
 =head1 TODO
 
 =over 4
@@ -167,4 +165,6 @@ code it into the filter it's self.
 
 =head1 AUTHOR
 
+Unknown.
+
 =cut