Permalink
Browse files

added a missing slash to regexp

also modified regexen to require less backslashes
  • Loading branch information...
phluid61 committed Aug 19, 2013
1 parent ad1b558 commit d0dd0e5a7956cf0d3bad6286ea6c32d0309033f7
Showing with 3 additions and 3 deletions.
  1. +3 −3 eprints/perl_lib/EPrints/Plugin/Import/CitationService/Scopus.pm
@@ -439,10 +439,10 @@ sub is_usable_doi
return 0 if( !EPrints::Utils::is_set( $doi ) );
- $doi =~ s/^http:\/\/dx\.doi\.org//;
- $doi =~ s/^doi://;
+ $doi =~ s!^http://dx\.doi\.org/!!;
+ $doi =~ s!^doi:!!;
- return 0 if( $doi !~ /^10\.\d\d\d\d\// );
+ return 0 if( $doi !~ m!^10\.\d{4}/! );
# DOIs containing parentheses confuse Scopus because it uses them as delimiters
return !( $doi =~ /[()]/ );

1 comment on commit d0dd0e5

@sebastfr

This comment has been minimized.

Show comment
Hide comment
@sebastfr

sebastfr Aug 19, 2013

Contributor

Thanks Matt for fixing these!

Contributor

sebastfr commented on d0dd0e5 Aug 19, 2013

Thanks Matt for fixing these!

Please sign in to comment.