File pyperl-1.0.1d-fix-tests.patch of Package python-perlmodule

--- pyperl-1.0.1c/t/kw-arg.py	2005-07-14 11:43:17.000000000 +0200
+++ pyperl-1.0.1d/t/kw-arg.py	2007-10-20 01:13:28.000000000 +0200
@@ -19,7 +19,7 @@ sub foo {
         $o->foo();
     };
     #print $@;
-    print "not " unless "$@" =~ /^python.exceptions.TypeError: foo\(\) takes at least 2 arguments \(1 given\)/;
+    print "not " unless "$@" =~ /^python.<type 'exceptions.TypeError'>: foo\(\) takes at least 2 arguments \(1 given\)/;
     print "ok 1\n";
 
     my $res;
--- pyperl-1.0.1c/t/py-obj.py	2005-11-17 10:38:11.000000000 +0100
+++ pyperl-1.0.1d/t/py-obj.py	2007-10-20 01:15:52.000000000 +0200
@@ -70,7 +70,7 @@ sub foo {
    eval {
        $foo->plain_list("foo", "bar");
    };
-   print "not " unless $@ && $@ =~ /^python\.exceptions\.TypeError: 'list' object is not callable/;
+   print "not " unless $@ && $@ =~ /^python\.<type 'exceptions\.TypeError'>: 'list' object is not callable/;
    print "ok 13\n";
 
    # Strings are a sequences too, but they are not unwrapped.
--- pyperl-1.0.1c/t/apply.py	2005-07-14 11:43:17.000000000 +0200
+++ pyperl-1.0.1d/t/apply.py	2007-10-20 01:20:38.000000000 +0200
@@ -26,21 +26,21 @@ sub {
     # XXX For some strange reason =~ is not to force $@ to stingify, so
     # I had to help it with "$@" =~.
     # Hmmm, something to fix some other time :-(
-    print "not " unless "$@" =~ /^python\.exceptions\.TypeError: ok\(\) takes at least 1 argument \(0 given\)/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) takes at least 1 argument \(0 given\)/;
     print "ok 1\n";
 
     eval {
        apply($f, undef);
     };
     #print $@;
-    print "not " unless "$@" =~ /^python\.exceptions\.TypeError: ok\(\) takes at least 1 argument \(0 given\)/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) takes at least 1 argument \(0 given\)/;
     print "ok 2\n";
 
     eval {
        apply($f, undef, undef);
     };
     #print $@;
-    print "not " unless "$@" =~ /^python\.exceptions\.TypeError: ok\(\) takes at least 1 argument \(0 given\)/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) takes at least 1 argument \(0 given\)/;
     print "ok 3\n";
 
     eval {
@@ -54,28 +54,28 @@ sub {
        apply($f, [1,2,3]);
     };
     #print $@;
-    print "not " unless "$@" =~ /^python.exceptions.TypeError: ok\(\) takes at most 2 arguments \(3 given\)/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) takes at most 2 arguments \(3 given\)/;
     print "ok 5\n";
 
     eval {
        apply($f, [], {b => 2});
     };
     #print $@;
-    print "not " unless "$@" =~ /^python\.exceptions\.TypeError: ok\(\) takes at least 1 non-keyword argument \(0 given\)/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) takes at least 1 non-keyword argument \(0 given\)/;
     print "ok 6\n";
 
     eval {
        apply($f, [1], {a => 2});
     };
     #print $@;
-    print "not " unless "$@" =~ /^python.exceptions.TypeError: ok\(\) got multiple values for keyword argument 'a'/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) got multiple values for keyword argument 'a'/;
     print "ok 7\n";
 
     eval {
        apply($f, [], {a => 2, b => 3, c => 4});
     };
     #print $@;
-    print "not " unless "$@" =~ /^python.exceptions.TypeError: ok\(\) got an unexpected keyword argument 'c'/;
+    print "not " unless "$@" =~ /^python\.<type 'exceptions.TypeError'>: ok\(\) got an unexpected keyword argument 'c'/;
     print "ok 8\n";
 
     eval {