develooper Front page | perl.perl5.porters | Postings from August 2001

[PATCH bleadperl] problems with magic.t (again!)

From:
Nikola Knezevic
Date:
August 15, 2001 13:38
Subject:
[PATCH bleadperl] problems with magic.t (again!)
Message ID:
10122435717.20010815221337@tesla.rcub.bg.ac.yu
Well, strange things happens inside this perl.
After applying previous patch (from Jarkko), tests 1 and 30 failed.
I've added a grouping extension to regex, and it worked.

Can someone explain me what's going on??



Differencess are here:
--- bleadperl\t\op\magic.t      Tue Aug 14 16:07:08 2001
+++ workin_bleadperl\t\op\magic.t       Wed Aug 15 20:55:10 2001
@@ -34,7 +34,7 @@
 eval '$ENV{"FOO"} = "hi there";';      # check that ENV is inited inside eval
 # cmd.exe will echo 'variable=value' but 4nt will echo just the value
 # -- Nikola Knezevic
-if ($Is_MSWin32) { ok 1, `set FOO` =~ /^(FOO=)?hi there$/; }
+if ($Is_MSWin32) { ok 1, `set FOO` =~ /^(?:FOO=)?hi there$/; }
 else             { ok 1, `echo \$FOO` eq "hi there\n"; }
 
 unlink 'ajslkdfpqjsjfk';
@@ -205,7 +205,7 @@
        $0 = "bar";
 # cmd.exe will echo 'variable=value' but 4nt will echo just the value
 # -- Nikola Knezevic
-       ok 30, ($Is_MSWin32 ? (`set __NoNeSuCh` =~ /^(__NoNeSuCh=)?foo$/)
+       ok 30, ($Is_MSWin32 ? (`set __NoNeSuCh` =~ /^(?:__NoNeSuCh=)?foo$/)
                            : (`echo \$__NoNeSuCh` eq "foo\n") );
 }
 


[END OF PATCH.]
-- 
 .            `\!,        
 .            <. .>    
 [=======oOo==( ^ )==oOo========[ indy@hemo.net ]=======]      
 |---      _    -            --- [    member of    ]--- |        
 [========( )======_==============[ .counter attack. ]==]           
 .         ()     ( )
 .                ()




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About