Changeset 16840 for lang

Timestamp:

07/30/08 11:18:11 (5 years ago)

Author:

daisuke

Message:

warn if you have an old version

Files:

• lang/perl/Google-Chart/trunk/Makefile.PL (modified) (1 diff)

lang/perl/Google-Chart/trunk/Makefile.PL

@@ -1 +1 @@
 use strict;
 use inc::Module::Install;
+
+my $have_previous = eval {
+    require Google::Chart;
+    $Google::Chart::VERSION < 0.05000;
+};
+
+if ($have_previous) {
+    my $y_n = prompt(<<EOM, "n");
+
+You seem to have an old version of Google::Chart installed.
+As this version of Google::Chart breaks a lot of backwards compatibility,
+installing this *WILL* break your code if you have something that depends on it.
+
+Are you sure you want to continue? [y/N]
+EOM
+    if ($y_n !~ /^y(?:es)$/i) {
+        exit 0;
+    }
+}
 
 name 'Google-Chart';