Change 34170: [PATCH] Tiny SelfLoader patch for better warnings

[Nicholas Clark]

Change 34170 by [EMAIL PROTECTED] on 2008/08/04 09:38:35

        Subject: [PATCH] Tiny SelfLoader patch for better warnings
        From: Steffen Mueller <[EMAIL PROTECTED]>
        Message-ID: <[EMAIL PROTECTED]>
        Date: Sat, 02 Aug 2008 17:38:39 +0200

Affected files ...

... //depot/perl/lib/SelfLoader.pm#28 edit

Differences ...

==== //depot/perl/lib/SelfLoader.pm#28 (text) ====
Index: perl/lib/SelfLoader.pm
--- perl/lib/SelfLoader.pm#27~33097~    2008-01-28 11:53:55.000000000 -0800
+++ perl/lib/SelfLoader.pm      2008-08-04 02:38:35.000000000 -0700
@@ -1,7 +1,7 @@
 package SelfLoader;
 use 5.008;
 use strict;
-our $VERSION = "1.15";
+our $VERSION = "1.16";
 
 # The following bit of eval-magic is necessary to make this work on
 # perls < 5.009005.
@@ -163,7 +163,8 @@
     return () unless $fullname;
     carp("Redefining sub $fullname")
       if exists $Cache{$fullname};
-    $Cache{$fullname} = join('', "package $pack; ",@$lines);
+    $Cache{$fullname} = join('', "\n\#line 1 \"sub $fullname\"\npackage $pack; 
", @$lines);
+    #$Cache{$fullname} = join('', "package $pack; ",@$lines);
     print STDERR "SelfLoader cached $fullname: $Cache{$fullname}" if DEBUG;
     # return stub to be eval'd
     defined($protoype) ? "sub $fullname $protoype;" : "sub $fullname;"
End of Patch.