Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
CPAN Release 0.04
- Fix > 5.18 THINKFIRST issues.
- Patch - https://rt.cpan.org/Public/Ticket/Attachment/WithHeaders/757962
  • Loading branch information
ingydotnet committed Jan 3, 2015
1 parent a21c065 commit 0113c9f
Show file tree
Hide file tree
Showing 3 changed files with 11 additions and 2 deletions.
6 changes: 6 additions & 0 deletions Changes
@@ -1,4 +1,10 @@
---
version: 0.04
date: Sat Jan 3 15:41:47 PST 2015
changes:
- Fix > 5.18 THINKFIRST issues.
- Patch - https://rt.cpan.org/Public/Ticket/Attachment/WithHeaders/757962
---
version: 0.03
date: Fri Jan 2 09:31:02 PST 2015
changes:
Expand Down
2 changes: 1 addition & 1 deletion Meta
@@ -1,7 +1,7 @@
=meta: 0.0.1

name: String-Slice
version: 0.03
version: 0.04
abstract: Shared Memory Slices of Bigger Strings
homepage: https://metacpan.org/release/String-Slice
license: perl
Expand Down
5 changes: 4 additions & 1 deletion lib/String/Slice.pm
@@ -1,7 +1,7 @@
use strict;
package String::Slice;

our $VERSION = '0.03';
our $VERSION = '0.04';

use Exporter 'import';
our @EXPORT = qw(slice);
Expand All @@ -25,6 +25,9 @@ int slice (SV* dummy, ...) {
U8* base_ptr;
// Force string and slice to be string-type-scalars (SVt_PV)
#if PERL_VERSION > 18
if(SvIsCOW(slice)) sv_force_normal(slice);
#endif
SvUPGRADE(slice, SVt_PV);
SvUPGRADE(string, SVt_PV);
Expand Down

0 comments on commit 0113c9f

Please sign in to comment.