File gnucash-cpan-warning.patch of Package gnucash

Overview Repositories Revisions Requests Users Attributes Meta

File gnucash-cpan-warning.patch of Package gnucash (Revision ef065c1bd9ad3ed32f1ddfd4df6265e9)

Currently displaying revision ef065c1bd9ad3ed32f1ddfd4df6265e9 , Show latest

Index: src/quotes/gnc-fq-update.in
===================================================================
--- src/quotes/gnc-fq-update.in.orig
+++ src/quotes/gnc-fq-update.in
@@ -24,11 +24,36 @@
 use strict;
 use CPAN;
 
+print "\n";
+print "WARNING: This program updates several Perl packages to untested latest\n";
+print "versions from CPAN. It could potentially cause unexpected failures\n";
+print "in any program or future upgrade problems.\n";
+print "\n";
+print "It is strongly recommended NOT TO USE this program and report possible\n";
+print "problems with parsing of stock quotes to http://bugzilla.novell.com/\n";
+print "\n\n";
+
+print "Do you want to continue? (y/n) ";
+
+my $input = <STDIN>;
+chomp ($input);
+
+exit 0 if ($input ne "y");
+print "\n\n";
+print "It invalidates your system certification!\n";
+print "\n";
+print "Are you absolutely sure? Do you prefer to abort now? (y/n) ";
+
+my $input = <STDIN>;
+chomp ($input);
+
+exit 0 if ($input ne "n");
+
 if ($( != 0) {
   print "\n";
   print "You probably need to be root before running gnc-fq-update.";
   print "\n\n";
-  print "Are you sure, you want to update parts of your Perl library? (y/n) ";
+  print "Are you sure, you want to update parts of your Perl library (RECONSIDER - Last warning!)? (y/n) ";
 
   my $input = <STDIN>;
   chomp ($input);

Places

File gnucash-cpan-warning.patch of Package gnucash (Revision ef065c1bd9ad3ed32f1ddfd4df6265e9)

Places