Regexps not stringifying bound variables?

[p5pRT]

Migrated from rt.perl.org#3091 (status was 'resolved')

Searchable as RT3091$

[p5pRT]

From troc@netrus.net

Created by troc@netrus.net

#!/usr/bin/perl -w

use URI​::URL;

print "1..4\n";

my $url_text = '/yatta/yatta/yatta'; my $url = URI​::URL->new($url_text);

sub test_match {   my ($number\, $url) = @​_;   print "not " unless $url =~ /^\Q$url_text\E$/;   print "ok $number\n"; }

print "not " unless ref($url) eq 'URI​::URL'; print "ok 1\n";

&test_match(2\, $url);

$url = $url . '';

&test_match(3\, $url);

print "ok 4\n";

exit; __END__

URI​::URL version 5.02

1..4 ok 1 not ok 2 ok 3 ok 4

Confirmed on perl 5.6.0\, also with URI​::URL 5.02

Perl Info

``` Site configuration information for perl 5.00561: Configured by troc at Mon Sep 6 13:31:45 EDT 1999. Summary of my perl5 (revision 5.0 version 5 subversion 61) configuration: Platform: osname=freebsd, osvers=3.1-stable, archname=i386-freebsd-thread uname='freebsd unix.homenet 3.1-stable freebsd 3.1-stable #14: fri may 28 13:58:18 edt 1999 troc@unix.homenet:usrsrcsyscompilecustom i386 ' config_args='-Dusethreads' hint=recommended, useposix=true, d_sigaction=define usethreads=define useperlio=undef d_sfio=undef use64bits=undef usemultiplicity=undef Compiler: cc='cc', optimize='-O2 -g', gccversion=2.7.2.1 cppflags='-DDEBUGGING -I/usr/local/include' ccflags ='-DDEBUGGING -I/usr/local/include' stdchar='char', d_stdstdio=undef, usevfork=true intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags ='-pthread -Wl,-E -L/usr/local/lib' libpth=/usr/lib /usr/local/lib libs=-lm -lc_r -lcrypt libc=, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-DPIC -fpic', lddlflags='-shared -L/usr/local/lib' Locally applied patches: @INC for perl 5.00561: /usr/local/perl5.005_61/lib/i386-freebsd-thread /usr/local/perl5.005_61/lib /usr/local/perl5.005_61/lib/site_perl/i386-freebsd-thread /usr/local/perl5.005_61/lib/site_perl . Environment for perl 5.00561: HOME=/home/troc LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/bin:/usr/X11R6/bin:/home/troc/bin PERL_BADLANG (unset) SHELL=/usr/local/bin/bash ```

[p5pRT]

From [Unknown Contact. See original ticket]

Ask Rocco if he knows the message-id of the original mail\, and then see what happened to it through the system.

Nat ------- start of forwarded message ------- From​: "Rocco Caputo" \troc@​netrus\.net To​: "Nathan Torkington" \gnat@​frii\.com\, "Simon Cozens (PGP Encryption Encouraged)" \simon@​brecon\.co\.uk Cc​: "perl5-porters@​perl.com" \perl5\-porters@​perl\.com Subject​: Re​: Fwd​: Regexps not stringifying bound variables? Date​: Sat\, 15 Apr 2000 20​:04​:26 -0400 (EDT)

On Fri\, 14 Apr 2000 21​:03​:07 -0600 (MDT)\, Nathan Torkington wrote​:

Simon Cozens writes​:

I really\, really hate to say this\, but\, um... shouldn't this have got a bug ID?

Nope\, the message was sent to perl5-porters and not to perlbug. Bug IDs are only assigned for messages sent to perlbug.

It originally was posted to perlbug. I forwarded another copy to perl5-porters after two days of no appearance.

-- Rocco Caputo / troc@​netrus.net The original message?​:

  http​://bugs.perl.org/perlbug.cgi?req=tid&tid=20000413.004

Quite why it appears not to have made it out to p5p itself is another matter. I'm looking into it.

Ciao

[p5pRT]

From The RT System itself

works under @​6640