--- swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl	2008-06-24 22:11:46.000000000 +0200
+++ swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl	2011-05-19 10:29:07.285003422 +0200
@@ -48,7 +48,7 @@
 
 # Check throw exception specification
 eval { li_std_string::test_throw() };
-is($@, "test_throw message", "Test 5");
+like($@, qr/^test_throw message/, "Test 5");
 { local $TODO = "why is the error not a Perl string?";
 eval { li_std_string::test_const_reference_throw() };
 is($@, "<some kind of string>", "Test 6");
--- swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl	2008-04-30 23:02:46.000000000 +0200
+++ swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl	2011-05-19 10:42:21.205003460 +0200
@@ -41,11 +41,11 @@
  
 # exception specifications
 eval { default_args::exceptionspec() };
-is($@, "ciao", "exceptionspec 1");
+like($@, qr/^ciao/, "exceptionspec 1");
 eval { default_args::exceptionspec(-1) };
-is($@, "ciao", "exceptionspec 2");
+like($@, qr/^ciao/, "exceptionspec 2");
 eval { default_args::exceptionspec(100) };
-is($@, '100', "exceptionspec 3");
+like($@, qr/^100/, "exceptionspec 3");
 
 my $ex = new default_args::Except($false);
 
@@ -54,13 +54,13 @@
 # a zero was thrown, an exception occured, but $@ is false
 is($hit, 0, "exspec 1");
 eval { $ex->exspec(-1) };
-is($@, "ciao", "exspec 2");
+like($@, qr/^ciao/, "exspec 2");
 eval { $ex->exspec(100) };
-is($@, 100, "exspec 3");
+like($@, qr/^100/, "exspec 3");
 eval { $ex = default_args::Except->new($true) };
-is($@, -1, "Except constructor 1");
+like($@, qr/^-1/, "Except constructor 1");
 eval { $ex = default_args::Except->new($true, -2) };
-is($@, -2, "Except constructor 2");
+like($@, qr/^-2/, "Except constructor 2");
 
 #Default parameters in static class methods
 is(default_args::Statics::staticmethod(), 60, "staticmethod 1");