* get rid of all computed $VERSIONs

https://rt.cpan.org/Ticket/Display.html?id=54745 git-svn-id: https://svn.perl.org/modules/Tk/trunk@13830 50811bd7-b8ce-0310-adc1-d9db26280581
eserte · May 29, 2010 · 9a1447b · 9a1447b
1 parent ca44136
commit 9a1447b
Show file tree

Hide file tree

Showing 22 changed files with 22 additions and 22 deletions.
diff --git a/Canvas/Canvas.pm b/Canvas/Canvas.pm
@@ -1,6 +1,6 @@
 package Tk::Canvas;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.013'; # sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 

diff --git a/DragDrop/DragDrop.pm b/DragDrop/DragDrop.pm
@@ -4,7 +4,7 @@ require Tk::Toplevel;
 require Tk::Label;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.015'; # sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Common Tk::Toplevel);
 

diff --git a/DragDrop/DragDrop/Rect.pm b/DragDrop/DragDrop/Rect.pm
@@ -5,7 +5,7 @@ use Carp;
 # Proxy class which represents sites to the dropping side
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.012'; # sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
 
 # Some default methods when called site side
 # XIDs and viewable-ness from widget

diff --git a/DragDrop/DragDrop/SunDrop.pm b/DragDrop/DragDrop/SunDrop.pm
@@ -2,7 +2,7 @@ package Tk::DragDrop::SunDrop;
 require  Tk::DragDrop::Rect;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #5 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.006'; # sprintf '4.%03d', q$Revision: #5 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Rect);
 use strict;

diff --git a/DragDrop/DragDrop/SunSite.pm b/DragDrop/DragDrop/SunSite.pm
@@ -2,7 +2,7 @@ package Tk::DragDrop::SunSite;
 require Tk::DropSite;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 
 use Tk::DragDrop::SunConst;
 use base  qw(Tk::DropSite);

diff --git a/DragDrop/DragDrop/XDNDDrop.pm b/DragDrop/DragDrop/XDNDDrop.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::XDNDDrop;
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 use base qw(Tk::DragDrop::Rect);
 
 sub XDND_PROTOCOL_VERSION () { 4 }

diff --git a/DragDrop/DragDrop/XDNDSite.pm b/DragDrop/DragDrop/XDNDSite.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::XDNDSite;
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.007'; # sprintf '4.%03d', q$Revision: #6 $ =~ /\D(\d+)\s*$/;
 use base qw(Tk::DropSite);
 
 sub XDND_PROTOCOL_VERSION () { 4 }

diff --git a/DragDrop/DropSite.pm b/DragDrop/DropSite.pm
@@ -3,7 +3,7 @@ require Tk::DragDrop::Common;
 require Tk::DragDrop::Rect;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.008'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::DragDrop::Common Tk::DragDrop::Rect);
 

diff --git a/DragDrop/Win32Site/Win32Site.pm b/DragDrop/Win32Site/Win32Site.pm
@@ -1,7 +1,7 @@
 package Tk::DragDrop::Win32Site;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 require DynaLoader;

diff --git a/Entry/Entry.pm b/Entry/Entry.pm
@@ -13,7 +13,7 @@ package Tk::Entry;
 
 use vars qw($VERSION);
 use strict;
-$VERSION = sprintf '4.%03d',q$Revision: #17 $ =~ /#(\d+)/;
+$VERSION = '4.018'; # sprintf '4.%03d',q$Revision: #17 $ =~ /#(\d+)/;
 
 # modify it under the same terms as Perl itself, subject
 # to additional disclaimer in license.terms due to partial

diff --git a/Event/Event/IO.pm b/Event/Event/IO.pm
@@ -3,7 +3,7 @@ use strict;
 use Carp;
 
 use vars qw($VERSION @EXPORT_OK);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use base qw(Exporter);
 use Symbol ();

diff --git a/Listbox/Listbox.pm b/Listbox/Listbox.pm
@@ -37,7 +37,7 @@ package Tk::Listbox;
 
 use vars qw($VERSION @Selection $Prev);
 use strict;
-$VERSION = sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.015'; # sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev $XS_VERSION);
 use Tk::Clipboard ();

diff --git a/TixGrid/TixGrid.pm b/TixGrid/TixGrid.pm
@@ -20,7 +20,7 @@ BEGIN
 
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.010'; # sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev $XS_VERSION);
 use Tk::Widget;

diff --git a/Tk/Clipboard.pm b/Tk/Clipboard.pm
@@ -5,7 +5,7 @@ package Tk::Clipboard;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use AutoLoader qw(AUTOLOAD);
 use Tk qw(catch);

diff --git a/Tk/Derived.pm b/Tk/Derived.pm
@@ -8,7 +8,7 @@ use strict;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.011'; # sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
 
 $Tk::Derived::Debug = 0;
 

diff --git a/Tk/Labelframe.pm b/Tk/Labelframe.pm
@@ -2,7 +2,7 @@ package Tk::Labelframe;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
+$VERSION = '4.003'; # sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
 
 # New widget which is a kind of Frame with a label ...
 

diff --git a/Tk/Panedwindow.pm b/Tk/Panedwindow.pm
@@ -2,7 +2,7 @@ package Tk::Panedwindow;
 use strict;
 
 use vars qw/$VERSION/;
-$VERSION = sprintf '4.%03d', q$Revision: #3 $ =~ /#(\d+)/;
+$VERSION = '4.004'; # sprintf '4.%03d', q$Revision: #3 $ =~ /#(\d+)/;
 
 # A Panedwindow widget (similar to Adjuster).
 

diff --git a/Tk/Photo.pm b/Tk/Photo.pm
@@ -1,7 +1,7 @@
 package Tk::Photo;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.006'; # sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw($XS_VERSION);
 

diff --git a/Tk/Spinbox.pm b/Tk/Spinbox.pm
@@ -2,7 +2,7 @@ package Tk::Spinbox;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d',q$Revision: #6 $ =~ /#(\d+)/;
+$VERSION = '4.007'; # sprintf '4.%03d',q$Revision: #6 $ =~ /#(\d+)/;
 
 use base 'Tk::Entry';
 

diff --git a/demos/demos/widget_lib/Plot.pm b/demos/demos/widget_lib/Plot.pm
@@ -12,7 +12,7 @@ package Plot;
 require 5.005_03;
 
 use vars qw/$VERSION @ISA/;
-$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.008'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use Tk::Frame;
 use base  qw/Tk::Frame/;

diff --git a/demos/demos/widget_lib/WidgetDemo.pm b/demos/demos/widget_lib/WidgetDemo.pm
@@ -3,7 +3,7 @@ package WidgetDemo;
 use 5.005_03;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.012'; # sprintf '4.%03d', q$Revision: #11 $ =~ /\D(\d+)\s*$/;
 
 use Tk 800.000;
 use Carp;

diff --git a/ptked b/ptked
@@ -6,7 +6,7 @@ use Cwd;
 use Getopt::Long;
 
 use vars qw($VERSION $portfile);
-$VERSION = sprintf '4.%03d', q$Revision: #29 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.030'; # sprintf '4.%03d', q$Revision: #29 $ =~ /\D(\d+)\s*$/;
 
 my %opt;
 INIT