[ID 20001202.002] [BUG all] 'die qr{pattern}' does not check termination

With 5.6.0 for example:
  crypt% perl -we 'die qr{x}'
  (?-xism:x)crypt% 
should be the same as:
  crypt% perl -we 'die "(?-xism:x)"'
  (?-xism:x) at -e line 1.
  crypt% 

Hugo
---
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.2.5-16, archname=i686-linux
    uname='linux crypt.compulink.co.uk 2.2.5-16 #1 sun may 30 23:00:18 bst 1999 i686 unknown '
    config_args='-des -Doptimize=-g -O6 -Dprefix=/opt/perl-5.6.0'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='cc', optimize='-g -O6', gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)
    cppflags='-DDEBUGGING -fno-strict-aliasing'
    ccflags ='-DDEBUGGING -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
    libc=/lib/libc-2.1.1.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: DEBUGGING USE_LARGE_FILES
  Built under linux
  Compiled at Mar 23 2000 10:55:56
  @INC:
    /opt/perl-5.6.0/lib/5.6.0/i686-linux
    /opt/perl-5.6.0/lib/5.6.0
    /opt/perl-5.6.0/lib/site_perl/5.6.0/i686-linux
    /opt/perl-5.6.0/lib/site_perl/5.6.0
    /opt/perl-5.6.0/lib/site_perl
    .

0
hv
12/3/2000 5:16:40 AM
perl.perl5.porters 47813 articles. 1 followers. Follow

1 Replies
103 Views

Similar Articles

[PageSpeed] 50

On Sun, Dec 03, 2000 at 05:16:40AM +0000, Hugo wrote:
> With 5.6.0 for example:
>   crypt% perl -we 'die qr{x}'
>   (?-xism:x)crypt% 
> should be the same as:
>   crypt% perl -we 'die "(?-xism:x)"'
>   (?-xism:x) at -e line 1.
>   crypt% 

--- ../utfperl/pp_sys.c Sat Dec  9 17:19:05 2000
+++ pp_sys.c    Sun Dec 10 00:54:32 2000
@@ -448,7 +448,7 @@
     }
     else {
        tmpsv = TOPs;
-       tmps = SvROK(tmpsv) ? Nullch : SvPV(tmpsv, len);
+       tmps = (SvROK(tmpsv) && PL_in_eval) ? Nullch : SvPV(tmpsv, len);
     }
     if (!tmps || !len) {
        SV *error = ERRSV;

-- 
It's much better to have people flaming in the flesh.  -Al Aho
0
simon
12/10/2000 12:55:37 AM
Reply:

Similar Artilces:

''''''''''''''''''''
Name: haznen Email: haznenatyahoodotcom Product: Gran Paradiso Alpha 8 Summary: '''''''''''''''''''' Comments: '''''''''''''''''''''''''''''''''''' Browser Details: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9a1) Gecko/20061204 UGES/1.7.2.0 GranParadiso/3.0a1 From URL: http://www.mozilla.org/projects/granparadiso/ Note to readers: Hendrix gives...

'''''
Name: mario Email: ramar17atfastwebnetdotit Product: Gran Paradiso Alpha 2 Summary: ''''' Comments: K: Browser Details: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9a2) Gecko/20070206 GranParadiso/3.0a2 ...

[ID 20010709.002] Inappropriate warning for 'my' in 'open'
This is a bug report for perl from mjd@plover.plover.com, generated with the help of perlbug 1.33 running under perl v5.6.1. ----------------------------------------------------------------- [Please enter your report here] perl -we '$file="X"; open my $fh, $file;' Parentheses missing around "my" list at -e line 1. The warning is inappropriate in this context. A workaround is to write: perl -we '$file="X"; open my $fh, "$file";' [Please do not change anything below this line] ----...

Transforming 'plain' ID to 'adorned' ID
I must be missing something obvious here. Suppose I create an ASP.NET Web User Control, and I use a ModalPopupExtender inside it. In the ascx, I set various properties of the extender to refer to controls within the Web User Control, such as PopupDragHandleControlID="TitleText". At runtime, the control with ID "TitleText" gets a more complicated ID on the rendered page (call it an 'adorned' ID, not sure what the offical term is), such as "ctl00_ContentPlaceHolder1_MyCtrl1_TitleText". The behaviour javascript for the extender does things like - this._dragHandleElement = $get(this._PopupDrag...

[ID 20000119.002] 'next' undefines variables in 'continue' block
This is a bug report for perl from oracle@tauceti.pcr.com, generated with the help of perlbug 1.26 running under perl 5.00502. ----------------------------------------------------------------- [Please enter your report here] A friend of mine ran into this problem, but I never saw it come up on perl-porters, so I'm submitting it. When 'next' exits a while block and enters a following continue block, it undefines any 'my' variable that was declared and initialized within the control expression. 'perlsub' is pretty clear that the scope extends t...

[ID 20001118.001] '' =~ ($re = qr((??{$i++ < 10e4 ? $re : ''})));
This is a bug report for perl from root@twumtwum, generated with the help of perlbug 1.28 running under perl v5.6.0. ----------------------------------------------------------------- '' =~ ($re = qr((??{$i++ < 10e4 ? $re : ''}))); Produces SIGSEGV. ----------------------------------------------------------------- --- Flags: category=core severity=high --- Site configuration information for perl v5.6.0: Configured by root at Mon Nov 6 18:12:36 PST 2000. Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: o...

Cannot create an object of type 'System.Boolean' from its string representation 'CHECKED' for the 'Checked' property.
hi  to all.......... Cannot create an object of type 'System.Boolean' from its string representation 'CHECKED' for the 'Checked' property.        i  am getting this error when i am trying to check the radio checked property in .net code , in the page  load  iam checking property to true it my requirement and i need to check in page it has been check r not how can i help me ?  my code in html is  <input type="radio" id="rdoOrganization" value="Organization"  runat =...

[ID 19991102.002] unpack('N', pack('N', -1)) not idempotent
This is a bug report for perl from ben@internet2.edu, generated with the help of perlbug 1.20 running under perl 5.00404. ----------------------------------------------------------------- [Please enter your report here] # Sample program demonstrating that unpack('N', pack('N', -1)) is # not idempotent; on my machine output is: # unpack('N', pack('N', -1)) is 4294967295 which is positive # $startVal = -1; $endVal = unpack('N', pack('N', $startVal)); # Uncommeting this fixes the problem # $endVal = sprintf("%d", $en...

'do' won't 'do' if '/'
Greetings to All from Au, Have a NetWare Perl 5.8.4 and wanted to tweak File\Spec\NW.pm to try and standardise on '/' separators. If I run a test script (t/uni/lower.t) with an unmodified NW.pm, it calls t/uni/case.pl, that, in case.pl, (when the path separators are '\'), the $file is '..\lib\unicore\To\Lower.pl' and the following code portion works, with $simple getting a returned table: sub casetest { my ($base, $spec, $func) = @_; my $file = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", &qu...

Reassigning a bug transitions 'Reopened' bug to 'New'
Can someone please explain the rationale behind this feature? It seems that I ought to be able to reassign a bug to a different developer other than the 'default' at the time the bug was originally logged, without it transitioning to 'New'. The 'Reopened' status has a significant meaning in our process, as compared to 'New', when doing product bug reviews prior to a new release effort. We have several instances where the original 'assignee' is no longer responsible for a product and/or components on that product, so when we 'Reopen...

Changing 'Bug' to 'Issue'
Hi, I am using Bugzilla 2.22. I've changed the relevant parameters (in template/en/custom/global/variables.none.tmpl) to change all instances of 'bug' in bugzilla to 'issue'; but there is one mention of bug that hasn't changed and I can't find the relevant code to change it. It's the first option in the first drop down box of the Boolean Charts in the advanced search. Has anyone else had this problem and/or know how to correct it? Thanks ...

Bug in overriding 'require' and 'do'?
Hi all, There was some discussion on London.pm about overriding 'do'. To determine if something is overrideable, you can use the prototype function: prototype FUNCTION Returns the prototype of a function as a string (or "undef" if the function has no prototype). FUNCTION is a reference to, or the name of, the function whose prototype you want to retrieve. If FUNCTION is a string starting with "CORE::", the rest is taken as a name for Perl builtin. If the builtin is not over- ridable (such as "qw//") or its argum...

SetRow() 'functionality' or a 'Bug'
Why does SetRow() automatically perform an AcceptText() on the current column (whereever the edit col is). In a test I had inserted a row in a datawindow, typed a string in a col (datatype is char(x)), clicked on a button, whose basic script was as follows 1. getitemstring () ---> null (original value as expected) 2. setrow (1) --> same as the row I had just inserted 3. getitemstring () --> 'actual_value' the one I just typed in Is this a bug or a 'desirable' feature. I have not seen any documnetation in pb helpfile or numerous books about this. I g...

'''
Name: L Lachowsky Email: e2brutus_10atyahoodotcom Product: Firefox Summary: ''' Comments: why duddn this surprise me... I change default server from IE to Mozilla, and then i get error messages. well, shud I decide to not get on my computer with Mozilla..or shud I risk security breeches with IE....hmmm at least i can get on the internet with IE Browser Details: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5 From URL: http://hendrix.mozilla.org/ Note to readers: Hendrix gives no expectation of a response to this fee...

Web resources about - [ID 20001202.002] [BUG all] 'die qr{pattern}' does not check termination - perl.perl5.porters

Resources last updated: 12/26/2015 8:25:01 AM