X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FSchema%2Finsertdb.pl;h=a7017955c2e625147ad759f646fe37c31c9832c6;hb=f54428abf9cc7d7e5604745335694eaf558f6820;hp=67a432f05f42deefb2c58f08f1adc77dbc88389d;hpb=3d9632fd77404b25649fcda4d09999ca1778db87;p=dbsrgits%2FDBIx-Class.git

diff --git a/examples/Schema/insertdb.pl b/examples/Schema/insertdb.pl
index 67a432f..a701795 100644
--- a/examples/Schema/insertdb.pl
+++ b/examples/Schema/insertdb.pl
@@ -1,7 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
-use MyDatabase::Main;
 use strict;
+use warnings;
+
+use MyDatabase::Main;
 
 my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');