Closed p5pRT closed 20 years ago
#!/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
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
works under @6640
Migrated from rt.perl.org#3091 (status was 'resolved')
Searchable as RT3091$