S_utf16_textfilter() was not returning EOF correctly in some situations.

[p5sagit/p5-mst-13.2.git] / lib / deprecate.pm

diff --git a/lib/deprecate.pm b/lib/deprecate.pm
index d016d77..7b92e0b 100644 (file)
--- a/lib/deprecate.pm
+++ b/lib/deprecate.pm
@@ -15,11 +15,14 @@ sub import {
     foreach my $pair ([qw(sitearchexp archlibexp)],
                      [qw(sitelibexp privlibexp)]) {
        my ($site, $priv) = @Config{@$pair};
+       if ($^O eq 'VMS') {
+           for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) };
+       }
        # Just in case anyone managed to configure with trailing /s
        s!/*$!!g foreach $site, $priv;
 
        next if $site eq $priv;
-       if ("$priv/$expect_leaf" eq $file) {
+       if (uc("$priv/$expect_leaf") eq uc($file)) {
            my $call_depth=1;
            my @caller;
            while (@caller = caller $call_depth++) {
@@ -56,15 +59,13 @@ __END__
 
 =head1 NAME
 
-deprecate - Perl (core) extension for deprecating the core version of a module,
-           in favour of the version on CPAN.
-
+deprecate - Perl pragma for deprecating the core version of a module
 
 =head1 SYNOPSIS
 
     use deprecate;     # always deprecate the module in which this occurs
 
-    use if $[ > 5.010, 'deprecate';    # conditionally deprecate the module
+    use if $] > 5.010, 'deprecate';    # conditionally deprecate the module
 
 
 =head1 DESCRIPTION