commit perl-Spiffy

26 Oct 2006

Hello community,

here is the log from the commit of package perl-Spiffy
checked in at Thu Oct 26 20:28:29 CEST 2006.

--------

--- perl-Spiffy/perl-Spiffy.changes	2006-01-25 21:39:57.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Spiffy/perl-Spiffy.changes	2006-10-25 15:32:22.000000000 +0200
@@ -1,0 +2,8 @@
+Wed Oct 25 15:32:01 CEST 2006 - cwh@suse.de
+
+version: 0.30
+date:    Sun Jan 29 12:18:02 PST 2006
+changes:
+- Use faster runtime code in `field`.
+
+-------------------------------------------------------------------

Old:
----
  Spiffy-0.29.tar.gz

New:
----
  Spiffy-0.30.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Spiffy.spec ++++++
--- /var/tmp/diff_new_pack.jLgiRr/_old	2006-10-26 20:28:07.000000000 +0200
+++ /var/tmp/diff_new_pack.jLgiRr/_new	2006-10-26 20:28:07.000000000 +0200
@@ -1,11 +1,11 @@
 #
-# spec file for package perl-Spiffy (Version 0.29)
+# spec file for package perl-Spiffy (Version 0.30)
 #
 # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
 # package are under the same license as the package itself.
 #
-# Please submit bugfixes or comments via http://bugs.opensuse.org
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
 # norootforbuild
@@ -17,7 +17,7 @@
 Requires:     perl = %{perl_version}
 Autoreqprov:  on
 Summary:      Framework for object oriented programming in Perl.
-Version:      0.29
+Version:        0.30
 Release:      1
 Source:       Spiffy-%{version}.tar.gz
 BuildRoot:    %{_tmppath}/%{name}-%{version}-build
@@ -65,6 +65,11 @@
 /var/adm/perl-modules/%{name}
 
 %changelog -n perl-Spiffy
+* Wed Oct 25 2006 - cwh@suse.de
+  version: 0.30
+  date:    Sun Jan 29 12:18:02 PST 2006
+  changes:
+- Use faster runtime code in `field`.
 * Wed Jan 25 2006 - mls@suse.de
 - converted neededforbuild to BuildRequires
 * Fri Jan 20 2006 - cwh@suse.de

++++++ Spiffy-0.29.tar.gz -> Spiffy-0.30.tar.gz ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Spiffy-0.29/Changes new/Spiffy-0.30/Changes
--- old/Spiffy-0.29/Changes	2006-01-19 17:12:52.000000000 +0100
+++ new/Spiffy-0.30/Changes	2006-01-29 21:18:06.000000000 +0100
@@ -1,4 +1,9 @@
 ---
+version: 0.30
+date:    Sun Jan 29 12:18:02 PST 2006
+changes:
+- Use faster runtime code in `field`.
+---
 version: 0.29
 date:    Thu Jan 19 08:12:06 PST 2006
 changes:
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Spiffy-0.29/lib/Spiffy.pm new/Spiffy-0.30/lib/Spiffy.pm
--- old/Spiffy-0.29/lib/Spiffy.pm	2006-01-19 17:11:48.000000000 +0100
+++ new/Spiffy-0.30/lib/Spiffy.pm	2006-01-29 21:16:13.000000000 +0100
@@ -4,7 +4,7 @@
 use warnings;
 use Carp;
 require Exporter;
-our $VERSION = '0.29';
+our $VERSION = '0.30';
 our @EXPORT = ();
 our @EXPORT_BASE = qw(field const stub super);
 our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
@@ -176,26 +176,26 @@
 
 my %code = ( 
     sub_start => 
-      "sub {\n  my \$self = shift;\n",
+      "sub {\n",
     set_default => 
-      "  \$self->{%s} = %s\n    unless exists \$self->{%s};\n",
+      "  \$_[0]->{%s} = %s\n    unless exists \$_[0]->{%s};\n",
     init =>
-      "  return \$self->{%s} = do { %s }\n" .
-      "    unless \@_ or defined \$self->{%s};\n",
+      "  return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
+      "    unless \$#_ > 0 or defined \$_[0]->{%s};\n",
     weak_init =>
       "  return do {\n" .
-      "    \$self->{%s} = do { %s };\n" .
-      "    Scalar::Util::weaken(\$self->{%s}) if ref \$self->{%s};\n" .
-      "    \$self->{%s};\n" .
-      "  } unless \@_ or defined \$self->{%s};\n",
+      "    \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
+      "    Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
+      "    \$_[0]->{%s};\n" .
+      "  } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
     return_if_get => 
-      "  return \$self->{%s} unless \@_;\n",
+      "  return \$_[0]->{%s} unless \$#_ > 0;\n",
     set => 
-      "  \$self->{%s} = shift;\n",
+      "  \$_[0]->{%s} = \$_[1];\n",
     weaken => 
-      "  Scalar::Util::weaken(\$self->{%s}) if ref \$self->{%s};\n",
+      "  Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
     sub_end => 
-      "  return \$self->{%s};\n}\n",
+      "  return \$_[0]->{%s};\n}\n",
 );
 
 sub field {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Spiffy-0.29/t/field3.t new/Spiffy-0.30/t/field3.t
--- old/Spiffy-0.29/t/field3.t	2005-02-24 17:07:06.000000000 +0100
+++ new/Spiffy-0.30/t/field3.t	2006-01-29 21:10:30.000000000 +0100
@@ -24,79 +24,72 @@
 
 __DATA__
 sub {
-  my $self = shift;
-  $self->{test1} = []
-    unless exists $self->{test1};
-  return $self->{test1} unless @_;
-  $self->{test1} = shift;
-  return $self->{test1};
+  $_[0]->{test1} = []
+    unless exists $_[0]->{test1};
+  return $_[0]->{test1} unless $#_ > 0;
+  $_[0]->{test1} = $_[1];
+  return $_[0]->{test1};
 }
 ...
 sub {
-  my $self = shift;
-  $self->{test2} = {}
-    unless exists $self->{test2};
-  return $self->{test2} unless @_;
-  $self->{test2} = shift;
-  return $self->{test2};
+  $_[0]->{test2} = {}
+    unless exists $_[0]->{test2};
+  return $_[0]->{test2} unless $#_ > 0;
+  $_[0]->{test2} = $_[1];
+  return $_[0]->{test2};
 }
 ...
 sub {
-  my $self = shift;
-  $self->{test3} = [
+  $_[0]->{test3} = [
           1,
           2,
           3,
           4
         ]
 
-    unless exists $self->{test3};
-  return $self->{test3} unless @_;
-  $self->{test3} = shift;
-  return $self->{test3};
+    unless exists $_[0]->{test3};
+  return $_[0]->{test3} unless $#_ > 0;
+  $_[0]->{test3} = $_[1];
+  return $_[0]->{test3};
 }
 ...
 sub {
-  my $self = shift;
-  $self->{test4} = {
+  $_[0]->{test4} = {
           '1' => 2,
           '3' => 4
         }
 
-    unless exists $self->{test4};
-  return $self->{test4} unless @_;
-  $self->{test4} = shift;
-  return $self->{test4};
+    unless exists $_[0]->{test4};
+  return $_[0]->{test4} unless $#_ > 0;
+  $_[0]->{test4} = $_[1];
+  return $_[0]->{test4};
 }
 ...
 sub {
-  my $self = shift;
-  $self->{test5} = '-weaken'
+  $_[0]->{test5} = '-weaken'
 
-    unless exists $self->{test5};
-  return $self->{test5} unless @_;
-  $self->{test5} = shift;
-  return $self->{test5};
+    unless exists $_[0]->{test5};
+  return $_[0]->{test5} unless $#_ > 0;
+  $_[0]->{test5} = $_[1];
+  return $_[0]->{test5};
 }
 ...
 sub {
-  my $self = shift;
-  return $self->{test6} = do { $self->setup(@_) }
-    unless @_ or defined $self->{test6};
-  return $self->{test6} unless @_;
-  $self->{test6} = shift;
-  return $self->{test6};
+  return $_[0]->{test6} = do { my $self = $_[0]; $self->setup(@_) }
+    unless $#_ > 0 or defined $_[0]->{test6};
+  return $_[0]->{test6} unless $#_ > 0;
+  $_[0]->{test6} = $_[1];
+  return $_[0]->{test6};
 }
 ...
 sub {
-  my $self = shift;
   return do {
-    $self->{test7} = do { $self->setup(@_) };
-    Scalar::Util::weaken($self->{test7}) if ref $self->{test7};
-    $self->{test7};
-  } unless @_ or defined $self->{test7};
-  return $self->{test7} unless @_;
-  $self->{test7} = shift;
-  Scalar::Util::weaken($self->{test7}) if ref $self->{test7};
-  return $self->{test7};
+    $_[0]->{test7} = do { my $self = $_[0]; $self->setup(@_) };
+    Scalar::Util::weaken($_[0]->{test7}) if ref $_[0]->{test7};
+    $_[0]->{test7};
+  } unless $#_ > 0 or defined $_[0]->{test7};
+  return $_[0]->{test7} unless $#_ > 0;
+  $_[0]->{test7} = $_[1];
+  Scalar::Util::weaken($_[0]->{test7}) if ref $_[0]->{test7};
+  return $_[0]->{test7};
 }


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

commit perl-Spiffy

root＠suse.de