From: Squeeks <squeek@cpan.org>
Date: Fri, 17 Dec 2010 17:24:06 +0000 (+0000)
Subject: Removing perl -w usage in example code.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59187a3bbcf176df838b00489cb0dfc592679aad;p=dbsrgits%2FDBIx-Class-Historic.git

Removing perl -w usage in example code.
---

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 792e938..f1dc538 100644
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -392,6 +392,8 @@ solomon: Jared Johnson <jaredj@nmgi.com>
 
 spb: Stephen Bennett <stephen@freenode.net>
 
+Squeeks <squeek@cpan.org>
+
 sszabo: Stephan Szabo <sszabo@bigpanda.com>
 
 teejay : Aaron Trevena <teejay@cpan.org>
diff --git a/lib/DBIx/Class/Manual/Example.pod b/lib/DBIx/Class/Manual/Example.pod
index fe2cf9e..2d0e2e3 100644
--- a/lib/DBIx/Class/Manual/Example.pod
+++ b/lib/DBIx/Class/Manual/Example.pod
@@ -128,10 +128,12 @@ MyDatabase/Main/Result/Track.pm:
 
 insertdb.pl
 
-  #!/usr/bin/perl -w
+  #!/usr/bin/perl
 
-  use MyDatabase::Main;
   use strict;
+  use warnings;
+
+  use MyDatabase::Main;
 
   my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
 
@@ -192,10 +194,12 @@ insertdb.pl
 
 testdb.pl:
 
-  #!/usr/bin/perl -w
+  #!/usr/bin/perl
 
-  use MyDatabase::Main;
   use strict;
+  use warnings;
+
+  use MyDatabase::Main;
 
   my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
   # for other DSNs, e.g. MySQL, see the perldoc for the relevant dbd