From ac9e9fdc79de3a432a9fb9d4a1f2000ff8d556c6 Mon Sep 17 00:00:00 2001
From: petdance <petdance@0c8536a8-3c1a-0410-a247-91dcf638db7e>
Date: Sun, 19 Aug 2007 07:36:55 +0000
Subject: [PATCH] All funcs need a return.  Move File::Spec() out of the BEGIN
 block

---
 Ack.pm         | 6 ++++--
 ack-standalone | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Ack.pm b/Ack.pm
index 6b19e18..8d3158a 100644
--- a/Ack.pm
+++ b/Ack.pm
@@ -28,6 +28,8 @@ our $is_cygwin;
 our $is_windows;
 our %type_wanted;
 
+use File::Spec ();
+
 BEGIN {
     %ignore_dirs = (
         '.git'  => 'Git',
@@ -78,7 +80,6 @@ BEGIN {
         xml         => [qw( xml dtd xslt )],
     );
 
-    use File::Spec ();
     $path_sep = File::Spec->catfile( '', '' );
     $path_sep = quotemeta( $path_sep );
 
@@ -435,7 +436,6 @@ $copyright
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
 END_OF_VERSION
-
 }
 
 =head2 print_version_statement( $copyright )
@@ -472,6 +472,8 @@ sub load_colors {
 
     $ENV{ACK_COLOR_MATCH}    ||= 'black on_yellow';
     $ENV{ACK_COLOR_FILENAME} ||= 'bold green';
+
+    return;
 }
 
 =head2 is_interesting
diff --git a/ack-standalone b/ack-standalone
index bc2cbd7..e42abb4 100755
--- a/ack-standalone
+++ b/ack-standalone
@@ -762,6 +762,8 @@ our $is_cygwin;
 our $is_windows;
 our %type_wanted;
 
+use File::Spec ();
+
 BEGIN {
     %ignore_dirs = (
         '.git'  => 'Git',
@@ -812,7 +814,6 @@ BEGIN {
         xml         => [qw( xml dtd xslt )],
     );
 
-    use File::Spec ();
     $path_sep = File::Spec->catfile( '', '' );
     $path_sep = quotemeta( $path_sep );
 
@@ -1100,7 +1101,6 @@ $copyright
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
 END_OF_VERSION
-
 }
 
 
@@ -1122,6 +1122,8 @@ sub load_colors {
 
     $ENV{ACK_COLOR_MATCH}    ||= 'black on_yellow';
     $ENV{ACK_COLOR_FILENAME} ||= 'bold green';
+
+    return;
 }