From: David Jack Olrik <david@olrik.dk>
Date: Thu, 25 Jan 2007 20:47:00 +0000 (+0000)
Subject: Formatting cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e21dfd6a08cbef7df0ed57462cefb6ad0854fc09;p=dbsrgits%2FDBIx-Class-Historic.git

Formatting cleanup
---

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 5645d6d..cfd3094 100644
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -199,7 +199,7 @@ claco: Christopher H. Laco
 
 clkao: CL Kao
 
-da5id: David Jack Olrik <djoö@cpan.org>
+da5id: David Jack Olrik <djo@cpan.org>
 
 dkubb: Dan Kubb <dan.kubb-cpan@onautopilot.com>
 
diff --git a/lib/DBIx/Class/Storage/DBI/Oracle.pm b/lib/DBIx/Class/Storage/DBI/Oracle.pm
index 2b28247..4d289af 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle.pm
@@ -1,27 +1,29 @@
 package DBIx::Class::Storage::DBI::Oracle;
+# -*- mode: cperl; cperl-indent-level: 2 -*-
+
 use strict;
 use warnings;
 
 use base qw/DBIx::Class::Storage::DBI/;
 
 sub _rebless {
-    my ($self) = @_;
+  my ($self) = @_;
 
-    my $version = eval { $self->_dbh->get_info(18); };
-    unless ( $@ ) {
-        my ($major,$minor,$patchlevel) = split(/\./,$version);
+  my $version = eval { $self->_dbh->get_info(18); };
+  unless ( $@ ) {
+    my ($major,$minor,$patchlevel) = split(/\./,$version);
 
-        # Default driver
-        my $class = "DBIx::Class::Storage::DBI::Oracle::Generic";
+    # Default driver
+    my $class = "DBIx::Class::Storage::DBI::Oracle::Generic";
 
-        # Version specific drivers
-        $class = "DBIx::Class::Storage::DBI::Oracle::8"
-            if $major == 8;
+    # Version specific drivers
+    $class = "DBIx::Class::Storage::DBI::Oracle::8"
+    if $major == 8;
 
-        # Load and rebless
-        eval "require $class";
-        bless $self, $class unless $@;
-    }
+    # Load and rebless
+    eval "require $class";
+    bless $self, $class unless $@;
+  }
 }
 
 
diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/8.pm b/lib/DBIx/Class/Storage/DBI/Oracle/8.pm
index 645ef89..c395cf1 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/8.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/8.pm
@@ -1,4 +1,5 @@
 package DBIx::Class::Storage::DBI::Oracle::8;
+# -*- mode: cperl; cperl-indent-level: 2 -*-
 
 use base qw( DBIx::Class::Storage::DBI::Oracle::Generic );
 
diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index 6f0693b..26584b2 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -1,4 +1,5 @@
 package DBIx::Class::Storage::DBI::Oracle::Generic;
+# -*- mode: cperl; cperl-indent-level: 2 -*-
 
 use strict;
 use warnings;