Changeset 9973 for lib

Timestamp:

04/17/06 04:46:27 (3 years ago)

Author:

audreyt

Message:

* v6.pm - jump to .pmc when possible.

Files:

• lib/v6.pm (modified) (1 diff)

lib/v6.pm

@@ -2 +2 @@
 
 use strict;
+use Filter::Util::Call;
+
+sub import {
+    my ($package, $filename, $line) = caller;
+    my $f = do {
+        open my $fh, '<', $filename.'c';
+        local $/;
+        readline($fh);
+    };
+    filter_add(sub {
+        filter_del(); 1 while filter_read(); $_ = $f; 1;
+    });
+}
+
+1;
+__END__
 use Inline; # this is going away soon
 use Filter::Simple;