X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FSpeak.pm;h=c18c2f7feda4c2fc8e4d60ab5286b4d0641d4ec9;hb=1d24e3213b4a03c11ddeb0abee4b319f442191c1;hp=0869ed4aecae2d48e86f7b162849d342ddaca5a2;hpb=ded8d315fd3f6c050f759865b09f053ae85e52a5;p=clearscm.git

diff --git a/lib/Speak.pm b/lib/Speak.pm
index 0869ed4..c18c2f7 100644
--- a/lib/Speak.pm
+++ b/lib/Speak.pm
@@ -47,6 +47,7 @@ use warnings;
 use base 'Exporter';
 
 use FindBin;
+use Clipboard;
 
 use lib "$FindBin::Bin/../lib";
 
@@ -112,6 +113,9 @@ Returns:
     return;
   } # if
 
+  # Handle the case where $msg is not passed in. Then use the clipboard;
+  $msg = Clipboard->paste unless $msg;
+
   # Handle the case where $msg is a filehandle
   $msg = <$msg> if ref $msg eq 'GLOB';