Hello community, here is the log from the commit of package perl-Carp-Assert for openSUSE:Factory checked in at 2015-04-15 16:22:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Carp-Assert (Old) and /work/SRC/openSUSE:Factory/.perl-Carp-Assert.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Carp-Assert" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Carp-Assert/perl-Carp-Assert.changes 2011-11-18 15:47:10.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Carp-Assert.new/perl-Carp-Assert.changes 2015-04-15 16:22:27.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Apr 13 17:52:16 UTC 2015 - co...@suse.com + +- updated to 0.21 + see /usr/share/doc/packages/perl-Carp-Assert/Changes + +------------------------------------------------------------------- Old: ---- Carp-Assert-0.20.tar.gz New: ---- Carp-Assert-0.21.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Carp-Assert.spec ++++++ --- /var/tmp/diff_new_pack.VRAb7U/_old 2015-04-15 16:22:27.000000000 +0200 +++ /var/tmp/diff_new_pack.VRAb7U/_new 2015-04-15 16:22:27.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Carp-Assert # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,24 +16,100 @@ # - Name: perl-Carp-Assert -Version: 0.20 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 0.21 +Release: 0 %define cpan_name Carp-Assert -Summary: Executable comments -Url: http://search.cpan.org/dist/Carp-Assert/ +Summary: executable comments +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source: http://www.cpan.org/authors/id/M/MS/MSCHWERN/%{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/Carp-Assert/ +Source: http://www.cpan.org/authors/id/N/NE/NEILB/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(Test::More) >= 0.88 %{perl_requires} %description -Carp::Assert is intended for a purpose like the ANSI C library assert.h. + "We are ready for any unforseen event that may or may not + occur." + - Dan Quayle + +Carp::Assert is intended for a purpose like the ANSI C library +http://en.wikipedia.org/wiki/Assert.h. If you're already familiar with +assert.h, then you can probably skip this and go straight to the FUNCTIONS +section. + +Assertions are the explicit expressions of your assumptions about the +reality your program is expected to deal with, and a declaration of those +which it is not. They are used to prevent your program from blissfully +processing garbage inputs (garbage in, garbage out becomes garbage in, +error out) and to tell you when you've produced garbage output. (If I was +going to be a cynic about Perl and the user nature, I'd say there are no +user inputs but garbage, and Perl produces nothing but...) + +An assertion is used to prevent the impossible from being asked of your +code, or at least tell you when it does. For example: + + # Take the square root of a number. + sub my_sqrt { + my($num) = shift; + + # the square root of a negative number is imaginary. + assert($num >= 0); + + return sqrt $num; + } + +The assertion will warn you if a negative number was handed to your +subroutine, a reality the routine has no intention of dealing with. + +An assertion should also be used as something of a reality check, to make +sure what your code just did really did happen: + + open(FILE, $filename) || die $!; + @stuff = <FILE>; + @stuff = do_something(@stuff); + + # I should have some stuff. + assert(@stuff > 0); + +The assertion makes sure you have some @stuff at the end. Maybe the file +was empty, maybe do_something() returned an empty list... either way, the +assert() will give you a clue as to where the problem lies, rather than 50 +lines down at when you wonder why your program isn't printing anything. + +Since assertions are designed for debugging and will remove themelves from +production code, your assertions should be carefully crafted so as to not +have any side-effects, change any variables, or otherwise have any effect +on your program. Here is an example of a bad assertation: + + assert($error = 1 if $king ne 'Henry'); # Bad! + +It sets an error flag which may then be used somewhere else in your +program. When you shut off your assertions with the $DEBUG flag, $error +will no longer be set. + +Here's another example of *bad* use: + + assert($next_pres ne 'Dan Quayle' or goto Canada); # Bad! + +This assertion has the side effect of moving to Canada should it fail. This +is a very bad assertion since error handling should not be placed in an +assertion, nor should it have side-effects. + +In short, an assertion is an executable comment. For instance, instead of +writing this + + # $life ends with a '!' + $life = begin_life(); + +you'd replace the comment with an assertion which *enforces* the comment. + + $life = begin_life(); + assert( $life =~ /!$/ ); %prep %setup -q -n %{cpan_name}-%{version} ++++++ Carp-Assert-0.20.tar.gz -> Carp-Assert-0.21.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/Changes new/Carp-Assert-0.21/Changes --- old/Carp-Assert-0.20/Changes 2007-01-05 04:08:19.000000000 +0100 +++ new/Carp-Assert-0.21/Changes 2014-06-25 23:17:04.000000000 +0200 @@ -1,75 +1,90 @@ -0.20 Thu Jan 4 19:08:00 PST 2007 +Revision history for Perl module Carp::Assert + +0.21 2014-06-25 + - Fixed typos in pod. RT#95017 - thanks Daniel Lintott. + - Added links to a number of modules in SEE ALSO. + - Added links to wikipedia page on assert.h + - Added github repo to dist metadata and pod + - Add "use warnings" and bumped min perl version to 5.6.0 + - Added license type to dist metadata via Makefile.PL + - Add TEST_REQUIRES if your EU::MM supports it, otherwise + add them to PREREQ_PM + - Reformatted Changes as per CPAN::Changes::Spec + +0.20 2007-01-05 MSCHWERN - The tests will no longer fail should the user have NDEBUG or PERL_NDEBUG environment variables set [rt.cpan.org 21170] - Update the license link to point to the whole Perl license, not just the Artistic license. -0.19 Tue Jan 2 15:13:09 PST 2007 +0.19 2007-01-02 MSCHWERN - Fixed installation for those who have Pod::Tests but pod2test is not in their PATH as some CPAN shell configurations do. -0.18 Tue Mar 2 16:02:23 PST 2004 +0.18 2004-03-03 MSCHWERN - Added copyright and license info - Made affirm's code dumping code safe on perl where B::Deparse isn't quite up to the job. - Some minor grammar nits from David Wheeler. -0.17 Mon Oct 1 16:43:00 EDT 2001 - * Wouldn't install without Test::Inline. Removed that dependency. +0.17 2001-10-01 MSCHWERN + - Wouldn't install without Test::Inline. Removed that dependency. -0.16 Sat Sep 8 20:21:58 EDT 2001 - * Now works all the way back to 5.004! - * Forgot to add a dependency on Test::More +0.16 2001-09-09 MSCHWERN + - Now works all the way back to 5.004! + - Forgot to add a dependency on Test::More - Added embedded tests -0.15 Tue Jun 12 17:59:03 EDT 2001 +0.15 2001-08-22 MSCHWERN - Now using B::Deparse - * Added affirm() + - Added affirm() - Tweaked the assertion message a bit - Added more docs about debugging vs production - Added an EFFICIENCY section. -0.14 Sun Mar 11 23:15:24 GMT 2001 - * Added $name argument to assert() +0.14 2001-03-11 (not released) MSCHWERN + - Added $name argument to assert() -0.13 Fri Feb 9 15:28:23 GMT 2001 +0.13 2001-02-09 MSCHWERN - Added shouldn't(). -0.12 Tue Feb 6 11:58:11 GMT 2001 +0.12 2001-02-07 MSCHWERN - Added PERL_NDEBUG environment variable, same as NDEBUG - * added should() and shouldnt() - * Fixed :NDEBUG/no Carp::Assert to completely shut off assertions. + - added should() and shouldnt() + - Fixed :NDEBUG/no Carp::Assert to completely shut off assertions. -0.11 Fri Jun 2 13:14:32 EDT 2000 +0.11 2000-06-02 MSCHWERN - Added NDEBUG environment variable to shut off all assertions. - Added a test for NDEBUG. -0.10 Mon Mar 13 09:31:12 EST 2000 +0.10 2000-03-13 MSCHWERN - Removed uses of constant.pm, reduces load time a bit. - * C< no Carp::Assert > is now the way to shut off assertions. + - C< no Carp::Assert > is now the way to shut off assertions. -0.08 Thu Dec 23 13:04:55 EST 1999 +0.08 1999-12-23 MSCHWERN - Made the assert error a smidge nicer looking. - Added some docs on what an assert error means. -0.07 Wed Oct 13 12:08:43 EDT 1999 +0.07 1999-10-13 MSCHWERN - s/assertation/assertion/g (Thanks to John Porter) - improved the synopsis a smidge - added another example of bad usage - delayed loading of Carp until an assert() fails -0.06 Thu Apr 29 16:58:32 1999 +0.06 1999-04-29 MSCHWERN - added INSTALL and README -0.05 Wed Apr 28 15:45:45 1999 +0.05 1999-04-28 (not released) MSCHWERN - tests fixed - confirmed at assert compiles out properly -0.04 Wed Apr 28 15:26:31 1999 - * Devel::Assert is now Carp::Assert - * simplified the interface greatly. - - never distributed +0.04 1999-04-28 (not released) MSCHWERN + - Devel::Assert is now Carp::Assert + - simplified the interface greatly. + +0.03 1999-01-06 MSCHWERN + - First release to CPAN -0.01 Tue Jan 5 18:40:21 1999 +0.01 1999-01-05 - original version; created by h2xs 1.18 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/MANIFEST new/Carp-Assert-0.21/MANIFEST --- old/Carp-Assert-0.20/MANIFEST 2007-01-05 04:08:35.000000000 +0100 +++ new/Carp-Assert-0.21/MANIFEST 2014-06-25 23:22:04.000000000 +0200 @@ -7,5 +7,5 @@ t/10enabled.t t/20disabled.t t/embedded-Carp-Assert.t -META.yml Module meta-data (added by MakeMaker) -SIGNATURE Public-key signature (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/META.json new/Carp-Assert-0.21/META.json --- old/Carp-Assert-0.20/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Carp-Assert-0.21/META.json 2014-06-25 23:22:04.000000000 +0200 @@ -0,0 +1,58 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141170", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Carp-Assert", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "Carp" : "0", + "Exporter" : "0", + "perl" : "5.006", + "strict" : "0", + "vars" : "0", + "warnings" : "0" + } + }, + "test" : { + "requires" : { + "Test::More" : "0.88" + } + } + }, + "release_status" : "stable", + "resources" : { + "repository" : { + "type" : "git", + "url" : "git://github.com/schwern/Carp-Assert.git", + "web" : "https://github.com/schwern/Carp-Assert" + } + }, + "version" : "0.21" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/META.yml new/Carp-Assert-0.21/META.yml --- old/Carp-Assert-0.20/META.yml 2007-01-05 04:08:35.000000000 +0100 +++ new/Carp-Assert-0.21/META.yml 2014-06-25 23:22:03.000000000 +0200 @@ -1,13 +1,30 @@ ---- #YAML:1.0 -name: Carp-Assert -version: 0.20 -abstract: ~ -license: ~ -generated_by: ExtUtils::MakeMaker version 6.31 -distribution_type: module -requires: - Carp: 0 - Test::More: 0.4 +--- +abstract: unknown +author: + - unknown +build_requires: + ExtUtils::MakeMaker: '0' + Test::More: '0.88' +configure_requires: + ExtUtils::MakeMaker: '0' +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141170' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.2.html - version: 1.2 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Carp-Assert +no_index: + directory: + - t + - inc +requires: + Carp: '0' + Exporter: '0' + perl: '5.006' + strict: '0' + vars: '0' + warnings: '0' +resources: + repository: git://github.com/schwern/Carp-Assert.git +version: '0.21' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/Makefile.PL new/Carp-Assert-0.21/Makefile.PL --- old/Carp-Assert-0.20/Makefile.PL 2006-12-31 02:07:26.000000000 +0100 +++ new/Carp-Assert-0.21/Makefile.PL 2014-06-25 23:16:19.000000000 +0200 @@ -1,18 +1,60 @@ use ExtUtils::MakeMaker; +my $mm_ver = $ExtUtils::MakeMaker::VERSION; +if ($mm_ver =~ /_/) { # dev version + $mm_ver = eval $mm_ver; + die $@ if $@; +} + +my @REQUIRES = ( + 'strict' => 0, + 'warnings' => 0, + 'Exporter' => 0, + 'vars' => 0, + 'Carp' => 0, +); + +my @TEST_REQUIRES = ( + 'Test::More' => 0.88, +); + +push(@REQUIRES, @TEST_REQUIRES) if $mm_ver < 6.64; + warn "Carp::Assert likes to have B::Deparse but can't find it.\n" unless eval { require B::Deparse }; WriteMakefile( NAME => 'Carp::Assert', VERSION_FROM => 'lib/Carp/Assert.pm', # finds $VERSION - PREREQ_PM => { Carp => 0, - Test::More => 0.40, - }, + PREREQ_PM => { @REQUIRES }, 'dist' => {COMPRESS => 'gzip -9', SUFFIX => '.gz', DIST_DEFAULT => 'all tardist', }, + + ($mm_ver >= 6.64 + ? (TEST_REQUIRES => { @TEST_REQUIRES }) + : () + ), + + ($mm_ver >= 6.31 ? (LICENSE => 'perl') : ()), + + ($mm_ver >= 6.48 + ? (MIN_PERL_VERSION => 5.006) + : () + ), + + ($mm_ver <= 6.45 ? () : (META_MERGE => { + 'meta-spec' => { version => 2 }, + resources => { + repository => { + type => 'git', + web => 'https://github.com/schwern/Carp-Assert', + url => 'git://github.com/schwern/Carp-Assert.git', + }, + }, + })), + ); { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/SIGNATURE new/Carp-Assert-0.21/SIGNATURE --- old/Carp-Assert-0.20/SIGNATURE 2007-01-05 04:09:01.000000000 +0100 +++ new/Carp-Assert-0.21/SIGNATURE 1970-01-01 01:00:00.000000000 +0100 @@ -1,33 +0,0 @@ -This file contains message digests of all files listed in MANIFEST, -signed via the Module::Signature module, version 0.55. - -To verify the content in this distribution, first make sure you have -Module::Signature installed, then type: - - % cpansign -v - -It will check each file's integrity, as well as the signature's -validity. If "==> Signature verified OK! <==" is not displayed, -the distribution may already have been compromised, and you should -not run its Makefile.PL or Build.PL. - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -SHA1 fa207befb96fd78c0d512a50c409ae98fab96759 Changes -SHA1 4eedbc4370c3e7678216958e9a3835db6a4b3aab INSTALL -SHA1 f3cd54455aab61f263f03774d6a9e69181eeda83 MANIFEST -SHA1 7a7b4887b1945d4cad2e723ad57046ad3081e07c META.yml -SHA1 9228b9220fc9d07bfb59a0723d6e93b3abe7316f Makefile.PL -SHA1 cc4ebb817ca5386d16f96db4b53d67440bc6129e README -SHA1 81c95ac909d3b3cf10e93929b242223dfea10f99 lib/Carp/Assert.pm -SHA1 c2fac3e9053e10041c3b310a915c3ea1946f6a22 t/10enabled.t -SHA1 7f2b5e5a67b472d76585872f8f7bbaffa9b58a3c t/20disabled.t -SHA1 b5fead6ab75f727abd8571bfaad9ff21201f92c2 t/embedded-Carp-Assert.t ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.5 (Darwin) - -iD8DBQFFncFNWMohlhD1QycRAm86AJ4qDdi94m6dZQZF6S35P8P36U53NgCgy1mi -kC8OUhZKrcvRzOjIXWTtQak= -=pt/J ------END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/lib/Carp/Assert.pm new/Carp-Assert-0.21/lib/Carp/Assert.pm --- old/Carp-Assert-0.20/lib/Carp/Assert.pm 2007-01-05 04:07:22.000000000 +0100 +++ new/Carp-Assert-0.21/lib/Carp/Assert.pm 2014-06-25 23:17:39.000000000 +0200 @@ -1,14 +1,14 @@ package Carp::Assert; -require 5.004; - +require 5.006; use strict qw(subs vars); +use warnings; use Exporter; use vars qw(@ISA $VERSION %EXPORT_TAGS); BEGIN { - $VERSION = '0.20'; + $VERSION = '0.21'; @ISA = qw(Exporter); @@ -130,10 +130,11 @@ - Dan Quayle Carp::Assert is intended for a purpose like the ANSI C library -assert.h. If you're already familiar with assert.h, then you can +L<assert.h|http://en.wikipedia.org/wiki/Assert.h>. +If you're already familiar with assert.h, then you can probably skip this and go straight to the FUNCTIONS section. -Assertions are the explict expressions of your assumptions about the +Assertions are the explicit expressions of your assumptions about the reality your program is expected to deal with, and a declaration of those which it is not. They are used to prevent your program from blissfully processing garbage inputs (garbage in, garbage out becomes @@ -478,7 +479,7 @@ Forgetting the C<if DEBUG> on an C<affirm()> is not so bad. While you still have the overhead of calling a subroutine (one that does nothing) it will B<not> evaluate its code block and that can save -alot. +a lot. Try to remember the B<if DEBUG>. @@ -530,8 +531,26 @@ =head1 SEE ALSO -L<assertions> is a new module available in 5.9.0 which provides assertions which can be enabled/disabled at compile time for real, no C<if DEBUG> necessary. +L<assert.h|http://en.wikipedia.org/wiki/Assert.h> - the wikipedia +page about C<assert.h>. + +L<Carp::Assert::More> provides a set of convenience functions +that are wrappers around C<Carp::Assert>. + +L<Sub::Assert> provides support for subroutine pre- and post-conditions. +The documentation says it's slow. + +L<PerlX::Assert> provides compile-time assertions, which are usually +optimised away at compile time. Currently part of the L<Moops> +distribution, but may get its own distribution sometime in 2014. + +L<Devel::Assert> also provides an C<assert> function, for Perl >= 5.8.1. + +L<assertions> provides an assertion mechanism for Perl >= 5.9.0. + +=head1 REPOSITORY +L<https://github.com/schwern/Carp-Assert> =head1 COPYRIGHT diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Carp-Assert-0.20/t/embedded-Carp-Assert.t new/Carp-Assert-0.21/t/embedded-Carp-Assert.t --- old/Carp-Assert-0.20/t/embedded-Carp-Assert.t 2007-01-05 04:08:34.000000000 +0100 +++ new/Carp-Assert-0.21/t/embedded-Carp-Assert.t 2014-06-25 23:21:59.000000000 +0200 @@ -1,4 +1,4 @@ -#!/usr/local/perl/5.8.8/bin/perl -w +#!/usr/local/bin/perl -w use Test::More 'no_plan'; @@ -54,7 +54,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 217 lib/Carp/Assert.pm +#line 218 lib/Carp/Assert.pm my $life = 'Whimper!'; ok( eval { assert( $life =~ /!$/ ); 1 }, 'life ends with a bang' ); @@ -65,7 +65,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 237 lib/Carp/Assert.pm +#line 238 lib/Carp/Assert.pm { package Some::Other; no Carp::Assert; @@ -79,7 +79,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 248 lib/Carp/Assert.pm +#line 249 lib/Carp/Assert.pm ok( eval { assert(1); 1 } ); ok( !eval { assert(0); 1 } ); @@ -90,7 +90,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 258 lib/Carp/Assert.pm +#line 259 lib/Carp/Assert.pm eval { assert(0) }; like( $@, '/^Assertion failed!/', 'error format' ); like( $@, '/Carp::Assert::assert\(0\) called at/', ' with stack trace' ); @@ -102,7 +102,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 273 lib/Carp/Assert.pm +#line 274 lib/Carp/Assert.pm eval { assert( Dogs->isa('People'), 'Dogs are people, too!' ); }; like( $@, '/^Assertion \(Dogs are people, too!\) failed!/', 'names' ); @@ -113,7 +113,7 @@ { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 310 lib/Carp/Assert.pm +#line 311 lib/Carp/Assert.pm my $foo = 1; my $bar = 2; eval { affirm { $foo == $bar } }; like( $@, '/\$foo == \$bar/' ); @@ -128,7 +128,7 @@ my $example = sub { local $^W = 0; -#line 149 lib/Carp/Assert.pm +#line 150 lib/Carp/Assert.pm # Take the square root of a number. sub my_sqrt { @@ -147,12 +147,12 @@ } }; -is($@, '', "example from line 149"); +is($@, '', "example from line 150"); { undef $main::_STDOUT_; undef $main::_STDERR_; -#line 149 lib/Carp/Assert.pm +#line 150 lib/Carp/Assert.pm # Take the square root of a number. sub my_sqrt { @@ -183,7 +183,7 @@ my $example = sub { local $^W = 0; -#line 300 lib/Carp/Assert.pm +#line 301 lib/Carp/Assert.pm affirm { my $customer = Customer->new($customerid); @@ -195,7 +195,7 @@ } }; -is($@, '', "example from line 300"); +is($@, '', "example from line 301"); undef $main::_STDOUT_; undef $main::_STDERR_;