removed useless shebang lines

mojolicious · Dec 15, 2011 · 7a548ed · 7a548ed
1 parent 512732d
commit 7a548ed
Show file tree

Hide file tree

Showing 88 changed files with 9 additions and 111 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,6 @@
 This file documents the revision history for Perl extension Mojolicious.
 
-2.38    2011-12-14 00:00:00
+2.38    2011-12-15 00:00:00
         - Improved documentation. (marcus, sri)
         - Improved tests.
         - Fixed memory leaks caused by named capture groups bug in Perl.

diff --git a/Makefile.PL b/Makefile.PL
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 use 5.010001;
 
 use strict;

diff --git a/examples/connect-proxy.pl b/examples/connect-proxy.pl
@@ -1,6 +1,3 @@
-#!/usr/bin/env perl
-
-# Use bundled libraries
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use Mojo::Base -strict;

diff --git a/examples/flash-policy-server.pl b/examples/flash-policy-server.pl
@@ -1,6 +1,3 @@
-#!/usr/bin/env perl
-
-# Use bundled libraries
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use Mojo::Base -strict;

diff --git a/examples/microhttpd.pl b/examples/microhttpd.pl
@@ -1,6 +1,3 @@
-#!/usr/bin/env perl
-
-# Use bundled libraries
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use Mojo::Base -strict;

diff --git a/examples/websocket.pl b/examples/websocket.pl
@@ -1,6 +1,3 @@
-#!/usr/bin/env perl
-
-# Use bundled libraries
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use Mojolicious::Lite;

diff --git a/lib/Mojolicious/Command/generate/app.pm b/lib/Mojolicious/Command/generate/app.pm
@@ -128,7 +128,6 @@ sub welcome {
 
 @@ test
 % my $class = shift;
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 4;

diff --git a/lib/Mojolicious/Command/generate/makefile.pm b/lib/Mojolicious/Command/generate/makefile.pm
@@ -24,8 +24,6 @@ __DATA__
 
 @@ makefile
 % my ($class, $path, $name) = @_;
-#!/usr/bin/env perl
-
 use strict;
 use warnings;
 

diff --git a/lib/Mojolicious/Command/generate/plugin.pm b/lib/Mojolicious/Command/generate/plugin.pm
@@ -84,7 +84,6 @@ L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
 
 @@ test
 % my $name = shift;
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 3;
@@ -104,8 +103,6 @@ $t->get_ok('/')->status_is(200)->content_is('Hello Mojo!');
 
 @@ makefile
 % my ($class, $path) = @_;
-#!/usr/bin/env perl
-
 use strict;
 use warnings;
 

diff --git a/t/mojo/app.t b/t/mojo/app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/asset.t b/t/mojo/asset.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 56;

diff --git a/t/mojo/base.t b/t/mojo/base.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 411;

diff --git a/t/mojo/bytestream.t b/t/mojo/bytestream.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/cache.t b/t/mojo/cache.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 21;

diff --git a/t/mojo/cgi.t b/t/mojo/cgi.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 16;

diff --git a/t/mojo/collection.t b/t/mojo/collection.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 48;

diff --git a/t/mojo/command.t b/t/mojo/command.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 32;

diff --git a/t/mojo/content.t b/t/mojo/content.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 19;

diff --git a/t/mojo/cookie.t b/t/mojo/cookie.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 267;

diff --git a/t/mojo/cookiejar.t b/t/mojo/cookiejar.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 87;

diff --git a/t/mojo/date.t b/t/mojo/date.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 21;

diff --git a/t/mojo/delay.t b/t/mojo/delay.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/dom.t b/t/mojo/dom.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/eventemitter.t b/t/mojo/eventemitter.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 47;

diff --git a/t/mojo/headers.t b/t/mojo/headers.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # "Remember, you can always find East by staring directly at the sun."

diff --git a/t/mojo/home.t b/t/mojo/home.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 16;

diff --git a/t/mojo/hypnotoad.t b/t/mojo/hypnotoad.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/ioloop.t b/t/mojo/ioloop.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/ioloop_tls.t b/t/mojo/ioloop_tls.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/iowatcher.t b/t/mojo/iowatcher.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/iowatcher_ev.t b/t/mojo/iowatcher_ev.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour and IPv6

diff --git a/t/mojo/json.t b/t/mojo/json.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/loader.t b/t/mojo/loader.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 46;

diff --git a/t/mojo/morbo.t b/t/mojo/morbo.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/parameters.t b/t/mojo/parameters.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/path.t b/t/mojo/path.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/psgi.t b/t/mojo/psgi.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 21;

diff --git a/t/mojo/request.t b/t/mojo/request.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/request_cgi.t b/t/mojo/request_cgi.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 181;

diff --git a/t/mojo/response.t b/t/mojo/response.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 269;

diff --git a/t/mojo/server.t b/t/mojo/server.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # "Would you kindly shut your noise-hole?"

diff --git a/t/mojo/template.t b/t/mojo/template.t
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 package MyTemplateExporter;
 use Mojo::Base -strict;
 
@@ -657,22 +655,22 @@ test
 EOF
 isa_ok $output, 'Mojo::Exception', 'right exception';
 like $output->message, qr/ohoh/, 'right message';
-is $output->lines_before->[0]->[0], 10,  'right number';
+is $output->lines_before->[0]->[0], 8,   'right number';
 is $output->lines_before->[0]->[1], '}', 'right line';
-is $output->lines_before->[1]->[0], 11,  'right number';
+is $output->lines_before->[1]->[0], 9,   'right number';
 is $output->lines_before->[1]->[1], '',  'right line';
-is $output->lines_before->[2]->[0], 12,  'right number';
+is $output->lines_before->[2]->[0], 10,  'right number';
 is $output->lines_before->[2]->[1], 'package MyTemplateException;',
   'right line';
-is $output->lines_before->[3]->[0], 13,                        'right number';
+is $output->lines_before->[3]->[0], 11,                        'right number';
 is $output->lines_before->[3]->[1], 'use Mojo::Base -strict;', 'right line';
-is $output->lines_before->[4]->[0], 14,                        'right number';
+is $output->lines_before->[4]->[0], 12,                        'right number';
 is $output->lines_before->[4]->[1], '',                        'right line';
-is $output->line->[0], 15, 'right number';
+is $output->line->[0], 13, 'right number';
 is $output->line->[1], "sub exception { die 'ohoh' }", 'right line';
-is $output->lines_after->[0]->[0], 16,              'right number';
+is $output->lines_after->[0]->[0], 14,              'right number';
 is $output->lines_after->[0]->[1], '',              'right line';
-is $output->lines_after->[1]->[0], 17,              'right number';
+is $output->lines_after->[1]->[0], 15,              'right number';
 is $output->lines_after->[1]->[1], 'package main;', 'right line';
 like "$output", qr/ohoh/, 'right result';
 

diff --git a/t/mojo/transactor.t b/t/mojo/transactor.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use Test::More tests => 175;

diff --git a/t/mojo/url.t b/t/mojo/url.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojo/user_agent.t b/t/mojo/user_agent.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/user_agent_online.t b/t/mojo/user_agent_online.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable libev and TLS

diff --git a/t/mojo/user_agent_tls.t b/t/mojo/user_agent_tls.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/websocket.t b/t/mojo/websocket.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/websocket_frames.t b/t/mojo/websocket_frames.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # "Being eaten by crocodile is just like going to sleep...

diff --git a/t/mojo/websocket_proxy.t b/t/mojo/websocket_proxy.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojo/websocket_proxy_tls.t b/t/mojo/websocket_proxy_tls.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojolicious/app.t b/t/mojolicious/app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojolicious/charset_lite_app.t b/t/mojolicious/charset_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/dispatch.t b/t/mojolicious/dispatch.t
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 package Test::Foo;
 use Mojo::Base 'Mojolicious::Controller';
 

diff --git a/t/mojolicious/dispatcher_lite_app.t b/t/mojolicious/dispatcher_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojolicious/embedded_app.t b/t/mojolicious/embedded_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/embedded_lite_app.t b/t/mojolicious/embedded_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/exception_lite_app.t b/t/mojolicious/exception_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/external/myapp.pl b/t/mojolicious/external/myapp.pl
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/external/script/my_app b/t/mojolicious/external/script/my_app
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 use strict;
 use warnings;
 

diff --git a/t/mojolicious/external_app.t b/t/mojolicious/external_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/external_lite_app.t b/t/mojolicious/external_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/group_lite_app.t b/t/mojolicious/group_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/i18n_lite_app.t b/t/mojolicious/i18n_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojolicious/i18n_shortcut_lite_app.t b/t/mojolicious/i18n_shortcut_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 # Disable Bonjour, IPv6 and libev

diff --git a/t/mojolicious/json_config_lite_app.t b/t/mojolicious/json_config_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;

diff --git a/t/mojolicious/json_config_mode_lite_app.t b/t/mojolicious/json_config_mode_lite_app.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 use Mojo::Base -strict;
 
 use utf8;