Audio-Wav-0.12_file_handle_support.patch

diff -ru Audio-Wav-0.12.orig/Wav/Read.pm Audio-Wav-0.12/Wav/Read.pm
--- Audio-Wav-0.12.orig/Wav/Read.pm 2010-05-23 11:37:07.000000000 -0500
+++ Audio-Wav-0.12/Wav/Read.pm  2011-10-15 22:20:42.000000000 -0500
@@ -47,7 +47,10 @@
     my $tools = shift;
     $file =~ s#//#/#g;
     my $size = -s $file;
-    my $handle = new FileHandle "<$file";
+    my $handle =
+       (ref $file eq 'GLOB') ?
+           $file :
+           new FileHandle "<$file";

     my $self = {
         'real_size' => $size,
diff -ru Audio-Wav-0.12.orig/Wav/Write.pm Audio-Wav-0.12/Wav/Write.pm
--- Audio-Wav-0.12.orig/Wav/Write.pm    2010-05-23 11:37:07.000000000 -0500
+++ Audio-Wav-0.12/Wav/Write.pm 2011-10-15 22:20:32.000000000 -0500
@@ -76,7 +76,10 @@
     my $details = shift;
     my $tools = shift;

-    my $handle = new FileHandle ">$out_file";
+    my $handle =
+       (ref $out_file eq 'GLOB') ?
+           $out_file :
+       new FileHandle ">$out_file";

     my $use_cache = 1;
     if ( ref $details eq 'HASH' && exists $details -> {'no_cache'} ) {