release 0.50

[catagits/Catalyst-Model-DBIC-Schema.git] / t / 05testapp.t

diff --git a/t/05testapp.t b/t/05testapp.t
index bc67a15..22fb546 100644 (file)
--- a/t/05testapp.t
+++ b/t/05testapp.t
@@ -30,7 +30,7 @@ my $db         = catdir ($cat_dir, 'testdb.db');
 
 my $catalyst_pl;
 
-foreach my $bin (split /[$Config{path_sep}:]/, $ENV{PATH}) {
+foreach my $bin (split /(?:$Config{path_sep}|:)/, $ENV{PATH}) {
    my $file = catfile($bin, 'catalyst.pl');
    if (-f $file) {
       $catalyst_pl = $file;