Update of /cvsroot/fink/fink/perlmod/Fink/vperl
In directory sc8-pr-cvs17:/tmp/cvs-serv11403/vperl

Modified Files:
        vpp.pm 
Log Message:
transfer into Fink:: namespace


Index: vpp.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/vperl/vpp.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- vpp.pm      13 Jun 2007 05:50:57 -0000      1.2
+++ vpp.pm      13 Jun 2007 06:17:01 -0000      1.3
@@ -1,7 +1,14 @@
+# This file is based on vpp.pm from version-0.7203 from CPAN, which
+# declares:
+#
 # This module can be distributed under the same terms as Perl.
 # Copyright (C) 2004,2005,2006,2007 John Peacock
+# 
+# It was converted to Fink::vperl::vpp and further modified for use by
+# Fink. You can read about these changes in the accompanying ChangeLog
+# files and by browsing the CVS repository.
 
-package version::vpp;
+package Fink::version::vpp;
 use strict;
 
 use locale;
@@ -29,7 +36,7 @@
        my ($class, $value) = @_;
        my $self = bless ({}, ref ($class) || $class);
        
-       if ( ref($value) && eval("$value->isa('version')") ) {
+       if ( ref($value) && eval("$value->isa('Fink::version')") ) {
            # Can copy the elements directly
            $self->{version} = [ @{$value->{version} } ];
            $self->{qv} = 1 if $value->{qv};
@@ -417,7 +424,7 @@
 
     $value = _un_vstring($value);
     $value = 'v'.$value unless $value =~ /(^v|\d+\.\d+\.\d)/;
-    my $version = version->new($value); # always use base class
+    my $version = Fink::version->new($value); # always use base class
     return $version;
 }
 
@@ -473,7 +480,7 @@
        my $version = eval "\$$class\::VERSION";
        if ( defined $version ) {
            local $^W if $] <= 5.008;
-           $version = version::vpp->new($version);
+           $version = Fink::version::vpp->new($version);
        }
 
        if ( defined $req ) {
@@ -492,7 +499,7 @@
                }
            }
 
-           $req = version::vpp->new($req);
+           $req = Fink::version::vpp->new($req);
 
            if ( $req > $version ) {
                require Carp;


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to