X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=signature_stuff%2Fpick_a_quote.pl;h=cb1a432d054e3c36f8d8f1cb7d0c8db9906fdd1d;hb=72f81743a4a798e3e84892631aa08229e74de27c;hp=83f319ad6cef1a9ab0b4b6f0cb83450c23384a37;hpb=2815d7ed754a1632c7fb1e5e4f18557661ee7fc7;p=lib.git

diff --git a/signature_stuff/pick_a_quote.pl b/signature_stuff/pick_a_quote.pl
index 83f319a..cb1a432 100755
--- a/signature_stuff/pick_a_quote.pl
+++ b/signature_stuff/pick_a_quote.pl
@@ -11,7 +11,7 @@ my ($temp_file,$quote_file) = @ARGV;
 $temp_file  ||= User->Home."/lib/signature_stuff/sigtemplate.txt";
 $quote_file ||= User->Home."/lib/signature_stuff/quote.txt";
 
-my $sigfile      = new IO::File User->Home."/.signature", 'w' or die "Unable to open ~/.signature for writing; $!";
+# my $sigfile      = new IO::File User->Home."/.signature", 'w' or die "Unable to open ~/.signature for writing; $!";
 my $templatefile = new IO::File $temp_file, 'r' or die "Unable to open $temp_file $!";
 
 local $/;
@@ -41,6 +41,4 @@ else {
 
 $template =~ s/\[\%\s*quote\s*\%\]/$quote/;
 
-print {$sigfile} $template;
-
-undef $sigfile;
+print $template;