version info on help
authorRicardo Mones <ricardo@mones.org>
Tue, 15 Jan 2008 11:36:38 +0000 (11:36 +0000)
committerRicardo Mones <ricardo@mones.org>
Tue, 15 Jan 2008 11:36:38 +0000 (11:36 +0000)
ChangeLog
VERSION
clawsker

index cd1d671..6aaedcf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-15 12:35  mones   0.2.0svn45
+
+       * clawsker
+               Add perl-gtk2 version info to help screen
+
 2008-01-12 01:23  mones   0.2.0svn44
 
        * clawsker
diff --git a/VERSION b/VERSION
index bc40ee2..1c6d724 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.2.0svn44
+0.2.0svn45
index ef02f19..980ca94 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -811,6 +811,21 @@ sub print_help() {
     print $line;
     print $xl::s{about_title} . "\n";
     print $xl::s{about_version} . " $VERSION\n";
+    print "Perl-GLib " . $Glib::VERSION;
+    # The version info stuff appeared in 1.040
+    if ($Glib::VERSION >= 1.040) {
+        print _(", built for ") . join(".", Glib->GET_VERSION_INFO) 
+              . _(", running with ") . join(".", &Glib::major_version, 
+                 &Glib::minor_version, &Glib::micro_version);
+    }
+    print "\n";
+    print "Perl-GTK2 " . $Gtk2::VERSION;
+    if ($Gtk2::VERSION >= 1.040) {
+        print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
+             . _(", running with ") . join(".", &Gtk2::major_version, 
+                 &Gtk2::minor_version, &Gtk2::micro_version);
+    }
+    print "\n";
     print $line;
     print _("Syntax:\n");
     print _("    clawsker [options]\n");