X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPAR.pm;h=7c4584fed9a2d06c20b2716e3d30a19371a3c4b4;hb=94a6e0e40e4507a79c747bd41cbf9bfecdd58914;hp=0f64b851c6c39eedd8954b394372fdcd31ea017e;hpb=5f9455c6efa99b87bf6e1cb0116db3004cc75151;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/PAR.pm b/lib/Catalyst/PAR.pm
index 0f64b85..7c4584f 100644
--- a/lib/Catalyst/PAR.pm
+++ b/lib/Catalyst/PAR.pm
@@ -6,7 +6,6 @@ use FindBin;
 use IO::File;
 use File::Spec;
 use File::Find;
-require Catalyst;
 
 =head1 NAME
 
@@ -54,7 +53,6 @@ sub package {
             return if $name =~ /^\W*lib/;
             return if $name =~ /\.par$/;
             return if $name !~ /\w+/;
-            warn "$name\n";
             push @files, $name;
         },
         '.'
@@ -74,6 +72,9 @@ EOF
     $tmp_file->close;
 
     # Create package
+    local $SIG{__WARN__} = sub { };
+    open my $olderr, '>&STDERR';
+    open STDERR, '>', File::Spec->devnull;
     my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files] );
     App::Packer::PAR->new(
         frontend  => 'Module::ScanDeps',
@@ -82,6 +83,7 @@ EOF
         backopts  => \%opt,
         args      => ['par_test.pl'],
     )->go;
+    open STDERR, '>&', $olderr;
 
     unlink $par_test;
 }