Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!bridge2!cook.ESD.3Com.COM!marcl From: marcl@ESD.3Com.COM (Marc Lavine) Newsgroups: comp.lang.perl Subject: Perl 4.009 has at least one serious problem Message-ID: Date: 8 Jun 91 10:46:04 GMT Sender: news@bridge2.ESD.3Com.COM Lines: 17 Nntp-Posting-Host: cook.esd.3com.com The script below should demonstrate a regexp problem that I found when running Perl 4.009 on a SparcStation SLC under SunOS 4.1. Perl was compiled with cc. #!/usr/local/bin/perl # # This script demonstrates a bug in Perl 4.009. The regexp below should # match the string, but it doesn't. Removing the 'i' switch or the caret # makes it work. # # Written by Marc Lavine (marcl@3com.com). # print ( ( "A" =~ /^A/i ) ? "okay." : "uh oh...", "\n" ); -- Marc Lavine Broken: marcl%3Com.Com@sun.com Smart: marcl@3Com.Com UUCP: ...{sun|decwrl}!3Com.Com!marcl